If you're on a UNIX system, you're probably best off looking for the lockfile. If you're on a win32 system, I don't really know, but you might want to try opening the port, and see if it fails?

Thanks,
James Mastros,
Just Another Perl Scribe