sub decide{
if ($answer =~ /^[Yy]/ ) {
   yes();
} else{
   not();
}
}