#!/your/perl/here

use strict;
use warnings;

while (<>)
{ 
	print "one: $_";
}

print "\n\n: now reading from STDIN: \n\n";

print "Enter data: ";
while (<>)
{ 
	print "two: $_";
	print "Enter data: ";
}