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

print $data; # or do something more interesting.