sub _open_it_and_run_it{
my ($self,%arg) = @_;
 open (IN, "<",$arg{open}) || die "$!";
 while (<IN>){
   ...
 }
 close IN:
}