#!/usr/bin/perl -w
if(my $pid = open STDOUT, "|-") {
    local $\ = "\n";
    print for 1 .. 100;
    close STDOUT;
} elsif (!defined $pid) {
    die "Cannot fork: $!";
} else {
    while(<STDIN>) {
        chomp;
        print "I got: '$_'\n";
    }
}