Select Code to Download

# this is a new file
{
...
        }

}

#!/usr/bin/perl
use strict;
...
   $hash_table{$key} = $value;
}
print Dumper(\%hash_table);

$VAR1 = {
          '' => undef,
...
          'Fruit_class' => undef,
          '}' => undef
        };