0 Пользователей и 1 Гость просматривают эту тему.
Lastiik:"$!=1;"
$|=1;open(F, ">>f");while ( my $read= ) { print F $read;}
#!/usr/bin/perl -w$|=1;# далее любой код