use IO::All; 
use IO::File; 
open G, '<test.txt'; 
$h = IO::File->new_from_fd(fileno(*G{IO}), 'r'); 
$i = io($h); 
print $i->getline

##</code><code>##

Can't call method "opened" on an undefined value at C:/perl/site/lib/IO/All/File.pm line 78.