Select Code to Download

use warnings;
use strict;
...
}

print Dumper(\%args),"\n";

$VAR1 = {
          '-r' => [
...
                        'apps'
                      ]
        };