Select Code to Download

$VERSION = 0.01;
$uname = "uname";
# Set ARGS
...
                   -f <queuename> -- Force option\n
                   -h print this help file\n";
}

#!/usr/bin/perl -w
use strict;
use Getopt::Long;
...
else {
        print &display_help;
}

if (a) {    # switch to add a queue
       do system($somecmd $q); #run system cmd with entered string.