readline.pl 186 B

12345678910111213141516
  1. #!/usr/bin/perl
  2. use FileHandle;
  3. $file = @ARGV[0];
  4. open(FILE, "$file");
  5. FILE->autoflush();
  6. while (<FILE>) {
  7. print "$_";
  8. STDOUT->autoflush();
  9. FILE->autoflush();
  10. }
  11. # End of program