Select Code to Download

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

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

undef $f;