*** /usr/local/src/beacon-1.3/src/beacon        Mon Nov 28 05:48:00 2005
--- beacon      Mon Nov 28 06:24:17 2005
***************
*** 272,277 ****
--- 275,288 ----


  sub get_opts() {
+
+ # Get any command line options
+   Getopt::Long::Configure ("bundling");   # Allow long and short args both
+       # Using:                C
+       # Not Using:    qux
+   GetOptions(
+       'configurationfile|C=s' => \$CONFIGFILE) ||
+       die ("Unknown option included in the command line, triggered" );

    open(CONFIGFILE, $CONFIGFILE) ||
        die ("CONFIGFILE open failed - \"$CONFIGFILE\"" );