use warnings;
use Math::MPFR qw(:mpfr);

print "Hello world\n";

{
    local(*STDOUT);
    open(STDOUT, ">", "output.txt") or die $!; #line 10
    $num = Math::MPFR->new(); #$num is a '@NaN@'
    Rmpfr_out_str($num, 10, 0, GMP_RNDN);
    close STDOUT;
}

print "Goodbye world\n";

##</code><code>##

Hello world
Goodbye world

##</code><code>##

Hello world
@NaN@Goodbye world