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

##</code><code>##

my $location = shift || 'default value';