print "Enter the name: ";
while ($line = <STDIN>) {
   # do whatever you want, $line holds the user's input
}