print "\n Do you want to continue (y/n)? ";
$answer = <STDIN>;