#!./perl -w
-# This file should really be a extracted from a .PL
+# This file should really be extracted from a .PL file
use lib 'lib'; # use source library if present
usage("") unless @ARGV;
+# Overcome shell's p1,..,p8 limitation.
+# See vms/descrip_mms.template -> descrip.mms for invokation.
+if ( $^O eq 'VMS' ) { @ARGV = split(/\s+/,$ARGV[0]); }
+
# parse the command-line
$result = GetOptions( qw(
help