Select Code to Download

Select or download this

my $VAR1 = { 'Platform' => '12000', 'AbcdName' => 'slhrno1', 'Dedicate
+dOption' => '-1', 'ShortName' => 'BRYN1', 'AFlag' => 'N', 'AbcdId' =>
+ '47358', 'Vendor' => 'MICROSOFT', 'Type' => '21', 'AliasName' => 'st
+lt', 'ExportVersion' => 'US' } ;

print "\n Platform ="; print Dumper ($VAR1->{Platform});
print "\n abcdname ="; print Dumper ($VAR1->{AbcdName});

Select or download this

 Platform =$VAR1 = '12000';

 abcdname =$VAR1 = 'slhrno1';