Select Code to Download

$ ./1.diver.pl 
$VAR1 = {
          'product_id' => 'ABC123',
...
          'price_excl_vat' => '1000'
        };
$ cat 1.diver.pl

#!/usr/bin/perl
use 5.016;
use warnings;
...

__END__
$