__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__