#!/usr/bin/env perl

use strict;

print "PID: " . $$, "\n";

open STDOUT, ">/tmp/returntozork"
    or die $!;

while (1) {
    sleep 10;
}

##</code><code>##

PID: 3868
shell> ls -l /proc/3868/fd/
lrwx------.  64 Jan  1 09:55 2 -> /dev/pts/0
l-wx------.  64 Jan  1 09:55 1 -> /tmp/returntozork
lrwx------.  64 Jan  1 09:55 0 -> /dev/pts/0