Select Code to Download

$a={NUM_NULL => 0,
    DISTINCT => 150,
    NUM_ROWS => 2000};
$b={PRO_NUMBER => \%a};
$c={AC_SHIPMENT => \%b};
%Profileshoh = (IC_STAGE => \%c);

#!/usr/bin/perl -w
use DBI;

...
}

exit;