--- plplot-5.8.0/bindings/tcl/pltclgen	Sun Nov 18 21:04:00 2007
+++ plplot-5.8.0/bindings/tcl/pltclgen1	Wed May 10 18:35:48 2017
@@ -25,9 +25,9 @@
 # probably unrealistic.
 ###############################################################################
 
-require "getopts.pl";
+use Getopt::Std;
 
-&Getopts('v');
+getopts('v');
 
 $verbose = $opt_v;