Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print Dumper($stuff);

$VAR1 = {
          'server' => {
...
                                  }
                    }
        };

<name>disk</ name >

<name>disk</name>

$VAR1 = {
          'server' => {
...
                    }
        };