Select Code to Download

#!/opt/openv/perl/bin/perl -w

...

#print Dumper(\%status);
#exit;

$VAR1 = {
          'bondsrv1' => {
...

                        }               },
        }