Select Code to Download

#!/usr/bin/perl

use strict;
...

my $dir = getcwd;
print $dir, "\n";

#!/usr/bin/perl

...
print $stdout, "\n";

exit;