#!/usr/bin/perl -w
use strict;
use Getopt::Long;

my ($add,$remove,$status,$force);
my %add_opts;
GetOptions ( \%add_opts, 'queue=s', 'label=s' );

sub display_help {
        die "Usage:
                  -a <queuename> -- Add a queue\n
                  -r <queuename> -- Remove a queue\n
                  -s <queuename> -- Check queue/spooler status\n
                  -f <queuename> -- Force option\n
                  -v Version Information\n
                  -h print this help file\n";
}

GetOptions ( version => sub{ print "This is mkpq Version 0.01\n"; exit; } );
GetOptions ( help  => \&display_help );

if ($add_opts {'queue'}) {
        print "Test\n";
}
else {
        print &display_help;
}