Help for this page
#!"C:\perl\bin\perl.exe" -w use strict; ... $dbh->disconnect(); print Dumper $scalar;
$VAR1 = { 'ID' => '2', ... 'date_comp_yellow' => undef, 'date_rec_red' => undef };