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

$data = "data to be shared";

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

##</code><code>##

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

print $data; # or do something more interesting.