Behavior of eval.
#!/usr/local/bin/perl $myvar = 1; eval ("print (\"hi!\\n\"); \$myvar = 2;"); print ("the value of \$myvar is $myvar\n");