ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch2/rebuke2

Text File | 1992-10-18 | 219 b | 10 lines

#!/usr/bin/perl

&rebuke('daughter', 'danglesocket');
&rebuke('son', 'flea-infested, dunghill-rat-licking twerp');

sub rebuke {
    ($beastie,$epithet) = @_;
    print "O my $beastie, you have become a $epithet!\n";
}