## Called .pl
$::ENV{ somekey } = 'somevalue';

##calling script;
do 'called.pl';