Select Code to Download

#!/cluster/uapp/perl/bin/perl -w
use KAP;
use strict;
...
     print Dumper $row;
   }
}  while ($_read_sth->{syb_more_results});

nbsda1@vcstest3$ perl sudip.pl

$VAR1 = [
...
        ];

nbsda1@vcstest3$