Select Code to Download

use strict;
use Data::Dumper;
...
} else {
    print "problem in GetSharedResources\n";
}

C:\Perl>perl resource.pl
GetSharedResources Success
...
          undef
        ];