1/14    I'm trying to flush output to disk after each write. This never writes
        to disk. What am i missing here (the file is being created):
        #!/usr/bin/perl
        $|=1;
        open(TEST,">test.txt") || die "Can't open: $!";
        print TEST "Testing\n";
        while(1) {}
        \_ call system's synch ?
           \_ $|=1 is supposed to flush after every print/write...
                \_ You forgot to call "select STDOUT" or "select TEST",
                   because $| bind to the last selected file descriptor.
                        \_ dear motd god, you're suppose to delete
                           useful replies. where are you?
                           \_ not even the censorbotidiot has the nerve to
                              kill this perfectly helpful response.