#Introduction
sub xp_whore {};

#starts here - no, really?
BEGIN {
   $perp = 'jesuashok is an';
}

&xp_whore($perp,$pointless,@endless);