#!/usr/bin/perl -w
while (<>) {
    print "You typed: $_\n";
}