Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print __FILE__ . "\n";

do 'filetwo';

#!/usr/bin/perl -w
use strict;

print $0 . "\n";
print __FILE__ . "\n";