__PASTE-ONE__
~/temp/graq> ls -l
-r--------   1   graq   graq   7 Oct 24 15:50 Testing.txt
~/temp/graq> cd ..
~/temp> chmod 100 graq
~/temp> perl relpath.pl 
graq/Testing.txt: Permission denied
__END__

##</code><code>##

__PASTE-TWO__
~/temp> cat relpath.pl 
#!/usr/bin/perl -w
use strict;

my $file = 'graq/Testing.txt';

open( TESTING, ">$file") or die ( "$file: $!\n" );
print TESTING `date`;
close TESTING;
__END__