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 li
+ke cause ',
'"No way you gettin me in that airplane" said Mr. T as he fain
+ted and ');
my $choice = rand 4;
print $sayings[$choice], @_;
}
1;
<myExperience>
$mostLanguages = 'Designed for engineers by engineers.';
$perl = 'Designed for people who speak by a linguist.';
</myExperience>
|