Select Code to Download

use strict;
use warnings;
...
};

print "Contents of \$data:  ", Dumper($data), "\n";

Contents of $data:  $VAR1 = {
          'req' => 'Submit',
...
                           },
          'data' => 'hello'
        };