See the return value of open. I think on some operating systems, you can check with kill whether a process still exists under that pid:

my $pid = open ...;

kill 0 => $pid;
[download]

Also see perlport, as mentioned in kill.