open (FH,"/tmp/file);


while (<FH>) {
   push @result,"$_";
   print "$_\n";
}   
FH->clearerr;
return @result;