Select Code to Download

# upload.pl
use vars qw($data);
...
$data = "data to be shared";

require "/path/to/final.pl";

# final.pl
use vars qw($data);

print $data; # or do something more interesting.