Select Code to Download

#!/usr/bin/perl -w

...
    print Dumper(\%h);
}

$VAR1 = {
          '-text' => 'To Lower Case',
...
          '-text' => 'To Mixed Case',
          '-command' => 'returning: 3 '
        };