use strict;
    use warnings;
    use File::Basename;

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