#! /usr/bin/perl -w

use Imagniary::Module;

if ( !Imaginary::Module::crappyserver_is_running() ) {
    open(my $handle, '-|', '/etc/rc.d/init.d/crappyserver start') 
      || die "failure!";
    while( my $line = <$handle> ) {
      print $line;
    }
    close($handle);
    print "Done!\n";
}