print STDOUT "\nEnter name: ";
$name = <STDIN>;
chomp $name;