Help for this page

Select Code to Download


  1. or download this
    @argv = qw(/bin/echo hello world);
    open(SAVOUT, '>&STDOUT') or die $!;
    ...
    }
    print SAVOUT "at end=", tell(STDOUT), "\n";
    close STDOUT;
    
  2. or download this
    before=12
    after=0
    at end=0