package TestModul;

sub do_open {
   local $_;
   open FH,'<','./test.txt' or die $!;
   while (<FH>) {
      print;
   }
   close FH;
}

1;