package Test; sub run { while() { print "$_\n"; } } 1; __DATA__ 1