#!/usr/bin/perl

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

sub rebuke {
    print "O my $_[0], you have become a $_[1]!\n";
}
