Select Code to Download

$mod =~ s{::}{/}g;
$mod .= '.pm';

#!/usr/bin/env perl

...
            m/^JSON::(?:PP|XS)$/
            && eval "require $_"
        } @ARGV;

davido@davido-desktop:~/scripts$ perl mytest.pl JSON::XS JSON::PP Disa
+llowed::Module
$VAR1 = {
...
                                   ]
                      }
        };