Select Code to Download

$ perl -wE 'use IO::Handle; my $inode = (*STDERR{IO}->stat)[1]; say `f
+ind -inum $inode`;' 2> derf
./derf

$ perl -wE 'use IO::Handle; my $inode = (*STDOUT{IO}->stat)[1]; say `f
+ind -inum $inode`;' > fred; cat fred
./fred