Select Code to Download

#!/usr/bin/perl -w

...
$dsft->{-ping} = 2;

print Dumper [$ds, $dsft];

[admin@ensim admin]$ perl ./test.pl
$VAR1 = [
...
          }
        ];
[admin@ensim admin]$