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