print NOTES "test";
.
.
.
$fromfile=<NOTES>;
if ($fromfile eq "test") {print "Yes, this works"};