use strict;

$| = 1; # disable buffering, read perldoc perlvar

my $pid = fork;

die "couldn't fork" unless defined $pid;

if($pid == 0) { # it's a kid
    print "type:";
    while(<STDIN>){
       print qq{you typed "$_"\n\ntype:"};
    }
} else {
   while(1) {
       print "\n\t\t",scalar localtime,"\n";
       sleep 1;
    }
}