open (MYFILE, "status2.txt");
   $a=<MYFILE>;
   print "$a";

   # can be written as
   use IO::All;
   $a < io("status2.txt");
   print "$a";