Select Code to Download

#!/usr/bin/perl -w
#
...
    sleep 1;
    print STDERR "Tagging file $i\n";
}

#!/usr/bin/perl -w
#
...
    return $psub;
}