open($test, "<test.txt");
if (!$test) {
   #do something
} else {
   #use $test to print something
}

##</code><code>##

open($test, "<test.txt") || die("$!\n");