Select Code to Download

perl multiple.pl -o outputfile -x xmlfile -d disk1 disk2 disk3 -m memo
+ry1 memory2 memory3

my %switches = (
        -x => ["xmlfile"],
        -o => ["outputfile"],
    -d => ["disk1", "disk2", "disk3"],
    -m => ["memory1", "memory2", "memory3"]);

#!/usr/bin/perl

...

print %switches;
print "\n";