Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
my $count = keys %myobjtdets; - hash created from query
print "$count"; - results in the number 63
exit;

Select or download this

print "<html><meta http-equiv='content-type' content='text/html; chars
+et=UTF-8'><BR/><BR/>";
print "<BR/>FtchObjtDets<BR/><BR/>";
foreach my $mykey (sort keys %myobjtdets) { print "$mykey  - $myobjtde
+ts{$mykey}<BR/>"; }
print "</html>";
exit;