open my $fh,'<',$ARGV[0] or die "can't open file: $!"; 
  ...
close $fh or die "can't close file: $!";