print "Your time is almost out make a choice either 1 for Vampire or 2 for Werewolf. \n";
chomp ($choice=<STDIN>) ;
if ($choice== 1) {sub vamp ;
}
else {die
}
if ($choice== 2) {sub wolf ;
}
else {die
}
sub vamp {print "Congratulations $name on choosing to become a vampire. I will turn 
you as requested and be your mentor until I deem you ready to go out on your own. \n";
}
sub wolf {print "Congratulations $name on choosing to become a werewolf. I will turn
you as requested and introduce you to my pack where you will learn of your new skills. \n";
}