[marsh b]$ cat ../test/filetest
#!/usr/bin/perl -w
use strict;

print "dollar zero is: $0\n";
my $f = __FILE__;
print "__FILE__ is: $f\n";

[marsh b]$ ../test/filetest
dollar zero is: ../test/filetest
__FILE__ is: ../test/filetest