--- ./msggen.pl.orig	2012-06-11 11:35:22.000000000 +0000
+++ ./msggen.pl	2012-06-11 11:37:06.000000000 +0000
@@ -4,6 +4,7 @@
 # See the file COPYING for copying permission.
 
 use POSIX;
+use Getopt::Std;
 
 # Package and version.
 $package = 'openjade';
@@ -18,8 +19,7 @@ $gen_c = 0;
 undef $opt_l;
 undef $opt_p;
 undef $opt_t;
-do 'getopts.pl';
-&Getopts('l:p:t:');
+getopts('l:p:t:');
 $module = $opt_l;
 $pot_file = $opt_p;