FILE1
-----
*{"::SomeFunc"} = sub { print "I'm neater than that!\n" }

FILE2.pl
--------
sub SomeFunc { print "I'm really neat\n"; }
my $neato = 'FILE1';
do $neato;
&SomeFunc;