print "How can I serve you, oh master? ";
my $input = <>;

while (<>) {
   # Stuff here
}