use strict; Fred; sub Fred { print "in function Fred\n" }