#!/usr/bin/env perl

use strict;

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

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

while (1) {
    sleep 10;
}