Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my %arg = map{my($key,$val)=split/=/;$key=>$val}@ARGV;

print Dumper(\%arg);

$VAR1 = {
          'lexwhere' => '\'in(\'DIS\', \'DIM\', \'DIR\')\'',
...
          'vchtyp' => 'I',
          'jrnltyp' => 'D'
        };