Thank you for taking the time.package ouse; BEGIN { use IO::Capture::Stderr; $ouse::capture = IO::Capture::Stderr->new(); $ouse::capture->start(); } END { $ouse::capture->stop(); my @err = $capture->read; if ($#err >= 0) { print "$_" for @err; <STDIN>; } } 1;
In reply to Re: Re: terminal control in MS (-Mouse)
by RandomWalk
in thread terminal control in MS
by RandomWalk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |