Select Code to Download

    use strict;
    use warnings;
...
    $org_fn = $ARGV[1];
    my $base = basename $org_fn;
    print "Basename is $base\n";

    my $iam = basename $0;
    my $syntax = "
        syntax:  $iam ...
    ";