close STDOUT;
open STDOUT, ">out" or die;

my $pid = fork();
die "" if !defined $pid;
exit 0 if $pid; # parent exits

exec "/bin/date"; #child prints to file