use IO::File;
my $foo = new IO::Handle;
open $foo, '<', 'data.txt';