$VERSION = 0.01;
$uname = "uname";
# Set ARGS
if (@ARGV < 1) {
    die "usage: $0 \n
                   -a <queuename> -- Add a queue\n
                   -r <queuename> -- Remove a queue\n
                   -s <queuename> -- Check queue/spooler status\n
                   -f <queuename> -- Force option\n
                   -h print this help file\n";
}