open FILE, $filename or die "Can't open $filename: $!\n";

##</code><code>##

my $filename = shift @ARGV or die "Usage: $0 filename\n";