#!/usr/bin/perl

@a=qx{ps x | grep -i sc_serv};
$b=1;

foreach (@a) {

if ($_ =~ /grep/) {
$_ =~ s/.*/blah/g;
}

if ($_ =~ /sc_serv/) {$b=0;}

}


if ($b == 1) {

print "Starting up\n";
qx{cd ~/bin/shoutcast/ ; ./sc_serv &> /dev/null &};

}