open(my $foo,'<+ /dev/null');
#old
select($foo); $|=1; select(STDOUT);
print $foo "|<3wl! 31337 d00d!";
printf $foo "%.02f", $money;
$fd = fileno $foo;
read($foo, $input, 1024) unless eof $foo;
@stats = stat $foo;
close $foo;
#new
$foo->autoflush(1);
$foo->print("|<3w1! 0bj3ct 0r13nt3d f1l3h4ndl3z! l33t!");
$foo->printf("%.02f", $money);
$fd = $foo->fileno;
$foo->read($input, 1024) unless $foo->eof;
@stats = $foo->stat;
$foo->close;