>>37
ループしながらread()で読んで、改行を数える手も。

>>42
>>45も出してるけど、型グロブもあるよ。
use strict;
use vars qw(*slash);

local *slash = \&slash_printfer;
slash();
exit;

sub slash_printfer {
print "printfer!\n";
}