use TestModul;

open FH,'<','./test.txt' or die $!;

while (<FH>) {
   TestModul->do_open;
   print;
}

close FH;