my $out = do {
    my $msg;
    open local( *STDOUT), '>', \$msg or die $!;
    mytest();
    $msg
};