Select Code to Download

require 'test_03.pl';

...
foreach(keys %{$result}){
  print "$_ : ${$result}{$_}\n";
}

use strict;

...
}

return 1;