my $filename = shift @*ARGS or die "You need to pass in a filename.";