#!/usr/bin/perl

#while (defined($line = <STDIN>))
#{
#   process $line here
#}

# Reading from STDIN

print 'enter something: ';

while(<STDIN>)
{

  print "$_\nenter something: ";

}