Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...


print Dumper( \%changes );

:!./test.pl
$VAR1 = {
...
          '200.4.4.4' => 'cifs,0',
          '200.0.4.2' => 'afp,1'
        };