package Quux; our $foo = "blorflydick"; print "in Quux\n"; print while ; print $foo,$/; 1; package blorflydick; print $foo,$/; __DATA__ blorf, blorf.