[me@host]$ perl -le 'my $outputfile = readlink "/proc/$$/fd/1"; print STDERR $outputfile;' > t1
/home/me/t1
[me@host]$ 

##</code><code>##

------------
:Wq
Not an editor command: Wq