use IO::File;

my $fh = IO::File->new("<test.txt");

if (!$fh) {
   #do something
   print "my file didn't open\n";
} else {
   #use $test to print something
   print "my file did open\n";

   while (<$fh>) {
   	# ...
   }
}