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;

##</code><code>##

<myExperience>
$mostLanguages = 'Designed for engineers by engineers.';
$perl          = 'Designed for people who speak by a linguist.';
</myExperience>