#!/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";
}
