my $file = shift(@ARGV) or die "Usage: '$0 <filename>'\n"