#Foo.pm use strict; use warnings; sub test { print __FILE__; } 1;