Select Code to Download

#!"C:\perl\bin\perl.exe" -w
  use strict;
...
  $dbh->disconnect();

print Dumper $scalar;

$VAR1 = {
          'ID' => '2',
...
          'date_comp_yellow' => undef,
          'date_rec_red' => undef
        };