#!/usr/bin/perl --
use Inline C => Config =>
    BUILD_NOISY => 1,
#~     FORCE_BUILD => 1, 
    CLEAN_AFTER_BUILD => 0,
; # Inline

use Inline C => <<'__C__'; 
void test_err()
{
    PerlIO_printf( PerlIO_stderr(), "Inline::C PerlIO_printf => PerlIO_stderr()(%p) is PerlIO_fileno()(%d)\n", PerlIO_stderr(), PerlIO_fileno(PerlIO_stderr()) );
    fprintf (stderr, "Inline::C fprintf => PerlIO_stderr()(%p) is PerlIO_fileno()(%d)\n", PerlIO_stderr(), PerlIO_fileno(PerlIO_stderr()) );
    fprintf (stderr, "Inline::C fprintf => stderr(%p) is fileno(%d)\n", stderr, fileno(stderr) );
// above output gets eaten if you flush
//    fflush (stderr );
    fprintf (stderr, "will somebody please eat my stderr buffer \n");
}
__C__

Main( @ARGV );
print "main is over\n";
exit( 0 );
END { print "perl is over\n"; }

sub Main {
    use FileHandle;
    STDERR->autoflush(1);
    STDOUT->autoflush(1);
    use File::Temp qw' tempfile ';
    open my $olderr, '>&STDERR'; # save STDERR
    my ($fh, $fn) = tempfile();
    open STDERR, '>&', $fh;

    test_err();

    open STDERR, '>&', $olderr; # reset STDERR
    close $fh;

    open my $e, '<', $fn;
    my $err = <$e>;
    print "(((($err))))\n";
}

__END__