Wanna try this, and see what happens ? :

#!/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");
[download]

Your file access won't get much more basic than that ;))

See what happens...

GreetZ!,

ChOas

print "profeth still\n" if /bird|devil/;