>>432
横レス。
おまえさん Exporter の方、読んでねえだろ。

===Foo::Bar===
use Exporter ;
use vars qw( @ISA @EXPORT ) ;
use subs qw( foo bar baz ) ;
@ISA = qw( Exporter ) ;
@Export = qw( foo bar baz ) ;
sub foo { 42; }
sub bar { 42; }
sub baz { 42;}
1 ;
=======
perl -MFoo::Bar -le 'print foo ; print bar ; print baz'