#!/usr/bin/perl -w

use strict;

open NOTES,">tmp.fil" or die "Aaaargh!\n";
print NOTES "test";
close NOTES;

open NOTES "<tmp.fil"  or die "Aaaaaargh2!\n";
my $Inpt=<NOTES>;
close NOTES;
print "Yup, it's there!\n" if ($Inpt eq "test");