Up to [Platon] / ep / test

Initialization

#!/usr/bin/perl

use IO::Handle;

select(STDIN); 
$|=1;
select(STDOUT); 
$|=1;
select(STDERR); 
$|=1;

#STDERR->autoflush(1);
#STDOUT->autoflush(2);

print STDOUT "Perl START\n";

$pass_written = 0;

while(<STDIN>)
{
    print STDERR "PERL: " . $_;

    if ($_ =~ /login:/)
    {
        print STDOUT "unknown\n"
    }
    if (($pass_written == 0) and ($_ =~ /login:/))
    {
        print STDOUT "asdfasdfasdfasdf\n";
        $pass_written = 1;
    }
#printf STDOUT "Perl stdout: %s",$_;
printf STDERR "Perl stderr: %s",$_;
}

print STDOUT "Perl STOP\n";