package Foo; our $_ = "Hello\n"; print $_ for 1..5;