package MrT; use strict; use Exporter; use vars qw(@ISA @EXPORT_OK); @ISA = qw(Exporter); @EXPORT_OK = qw(&tprint); sub tprint { my @sayings = ( 'I pity the fool that ', 'The sucka better ', 'Maybe you should come over here and see what a real man is like cause ', '"No way you gettin me in that airplane" said Mr. T as he fainted and '); my $choice = rand 4; print $sayings[$choice], @_; } 1;