my $pid = open ...;

kill 0 => $pid;