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; ; } } 1;