$ cat honda.pl
#!perl

print STDERR "Using Honda\n";
sub honda { print "Honda rulez\n"; }

1;
$ perl -wE'do "honda.pl";say 2;honda()'
Using Honda
2
Honda rulez
$