#!/usr/local/bin/perl
# Jaime Prilusky, 2005

  my $f = $ARGV[0] || die "Usage: $0 fileName\n";
  
  print "Received name $f\n";

  open(IN,$f) || die "Can't access $f, $!\n";
  print "File $f opened\n";
  close(IN);
  print "File $f closed\n";