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