C:\Perl>perl resource.pl
GetSharedResources Success
$VAR1 = [
          undef
        ];