Select Code to Download

#!/usr/bin/perl

...

# $parent should now give the bat file name
print "$parent\n";