$ ./prog.pl 
Set $var to 42 in my_sub
Main program: 42