File Perl

  1. Home
  2. Perl
  3. File
  4. Unbuffered perl io
#!/usr/bin/perl
binmode(STDOUT,":unix"); #requires PerlIO
for (0..9) {
    print "."; sleep 1;
}
print "\n";