sub foo { 'foo' };
foo();
print $_,"\n";