#!/usr/local/bin/perl 

$myvar = 1; 
eval ("print (\"hi!\\n\"); \$myvar = 2;"); 
print ("the value of \$myvar is $myvar\n");