> Попробуйте так: > > #!/usr/bin/perl -w > use IO::Handle; > STDOUT->autoflush(1); > > $login = shift; > $password = shift; > while(1) { > print "$login $password"; > sleep(1); > } то что доктор прописал, спасибо PS: а еще можно так (это я сам нашел): $|=1; впрочем это одно и то же :)