use IO::File;
$f = new IO::File "filename.txt", "r";

##</code><code>##

while (<$f>)
{
   ... do something here...
}

##</code><code>##

undef $f;