--- a/beamStats
+++ b/beamStats
@@ -2,9 +2,9 @@
 #======================================================================
 #                    B E A M S T A T S 
 #                    doc: Fri Aug 25 15:57:05 2006
-#                    dlm: Tue Mar  4 13:09:14 2014
+#                    dlm: Thu Mar 17 07:39:34 2016
 #                    (c) 2006 A.M. Thurnherr
-#                    uE-Info: 33 64 NIL 0 0 72 0 2 4 NIL ofnI
+#                    uE-Info: 35 0 NIL 0 0 72 0 2 4 NIL ofnI
 #======================================================================
 
 # Split data file into per-bin time series.
@@ -31,6 +31,7 @@
 #	Feb 21, 2008: - BUG: had forgotten to undo debugging changes
 #				  - removed missing magdecl warning on -b
 #	Mar  4, 2014: - added support for missing PITCH/ROLL/HEADING
+#   Mar 17, 2016: - adapted to new Getopt library
 
 # General Notes:
 #	- everything (e.g. beams) is numbered from 1
@@ -51,7 +52,7 @@
 #	- non-monotonic min_pcg is particularly obvious with the DYNAMUCK BM_ADCP
 #	  data, where one of the beams performed much worse than the others
 
-require "getopts.pl";
+use Getopt::Std;
 $0 =~ m{(.*/)[^/]+};
 require "$1RDI_BB_Read.pl";
 require "$1RDI_Coords.pl";
@@ -66,7 +67,7 @@
 		 	  "[-%)good <min>] " .
 		 	  "[output -b)eam coordinates] " .
 			  "<RDI file>\n")
-	unless (&Getopts("4abd:f:M:p:r:S:") && @ARGV == 1);
+	unless (&getopts("4abd:f:M:p:r:S:") && @ARGV == 1);
 
 die("$0: -4 and -d are mutually exclusive\n")
 	if ($opt_4 && defined($opt_d));