package pkg; $var = "foo"; print $var;