#!/usr/bin/perl

use strict;
use warnings;

open my $fh, '<', undef or die $!;
open my $fh2, '>&=', $fh or die $!;

select $fh2; $|++;
print "foo\n";

seek $fh, 0, 0;
print STDOUT <$fh>;

__END__