my $location = shift @ARGV or die "usage: $0 [filename]\n";