use Data::Dumper;
open (STDOUT, ">whatever.dat");
print Dumper(%flexlm);
close STDOUT;

##</code><code>##

$VAR1 = 'dataParams';
$VAR2 = {
          'license_feature' => {
                                 'val' => 'geditor'
                               },
          'total_licenses' => {
                                'val' => '15'
                              },
          'machine_names' => {
                               'parmOptions' => [
                                                  'solw0328',
                                                  'solw0082',
                                                  'vasw1006',
                                                  'lav000021453a',
                                                  'tczw5216',
                                                  'CRKW388',
                                                  'vasw1005'
                                                ]
                             },
          'user_names' => {
                            'parmOptions' => [
                                               'solwebef',
                                               'solwebef',
                                               'vaskhall',
                                               'lvlvalor',
                                               'tczrale',
                                               'crkjcree',
                                               'vasplund'
                                             ]
                          },
          'licenses_used' => {
                               'val' => 7
                             },
          'license_server' => {
                                'val' => '10.210.134.126'
                              }
        };