#!/usr/bin/perl -w

use strict;

use Demonize;

my $command = shift @ARGV || '';

my $demon = Demonize->new;

if ($command eq 'start') {
    exit $demon->start;
} elsif ($command eq 'restart') {
    $demon->stop;
    exit $demon->start;
} elsif ($command eq 'stop') {
    $demon->stop;
} elsif ($command eq 'status') {
    $demon->status;
} else {
    die <<USAGE;
Usage : $0 stop|start|restart|status
USAGE
}