Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use warnings;
...
    my $num = sysread(ERR, my $buffer, 1024 );
    $text->insert( 'end', $buffer, 'red' );
}
  2. or download this
    #!/usr/bin/perl
use warnings;
...
    $text->insert( 'end', $buffer, 'red' );
}