#!perl

use IO::Handle;

open $f, "> test.out" or die;

my $line;

$f->autoflush(1);

while ($line = <>) {
    chomp $line;
    print "Read \"$line\"\n";
    print $f $line;
}

close $f;