...
else {
	die 'Couldn\'t fork!' unless defined $pid;
	close STDOUT;
	open STDOUT, '>', 'con' or die $!;
     ...
}