use strict;
use Proc::ProcessTable;

sub is_running {
   my ($pattern) = @_;
   my $t = Proc::ProcessTable->new();

   foreach $proc ( @{ $t->table() } ) {
     $proc->cmndline() =~ /^$pattern/ and return 1;
   } 
   
   return 0;
}