$ perl -e 'use IPC::SysV qw(ftok SEM_R SEM_A);use IPC::Semaphore;open(A,"<","../_service/bbslist.txt");while(<A>){chomp;($a)=ftok("../$_",1);if($b=new IPC::Semaphore($a,0,SEM_R|SEM_A)){$b->remove;print"$_\n"}}close(A);'
netradio
news4vip

こうしてみた。