Exit if an unknown option is used.

misc-scripts/xref_mapping/xref_parser.pl

 use strict;
 
-use Getopt::Long;
+use Getopt::Long qw(:config pass_through);
 use XrefParser::BaseParser;
 
 my ( $host,             $port,          $dbname,
@@ -41,6 +41,16 @@ GetOptions(
     'unzip' => \$unzip,                   # Force decompression of files
     'help'  => sub { usage(); exit(0); } );
 
+if($ARGV[0]){
+  print STDERR "Unknown command line arguments:-\n";
+  foreach my $a (@ARGV){
+    print STDERR "\t".$a."\n";
+  }
+  print STDERR "Stopping script. Please fix the command line.\n";
+  print STDERR "use -help for full list of command line options.\n";;
+  exit(1);
+}
+
 my @species = split(/,/,join(',',$species));
 my @sources  = split(/,/,join(',',$sources));
 my @notsource  = split(/,/,join(',',$notsource));