BEGIN {$foo="hiya"};

print $foo."\n";