my @sql =();
$sql[0] = qq[SELECT AccNum as Account, max(date) as Date, Type, count(*) as Total_No, sum(Amount) as Amount
FROM transaction GROUP BY AccNum, Type
union
SELECT AccNum, max(date),'Balance', count(*), sum(if(type='Debit',-1*Amount,Amount))
FROM transaction GROUP BY AccNum;];
$sql[1] = qq[SELECT AccNum as Account, max(date) as Date, Type, 'CHEQUENO' as Subtype, count(*) as Total_No, sum(Amount) as Amount
FROM transaction where chequeno is not null GROUP BY AccNum, Type
union
SELECT AccNum as Account, max(date) as Date, Type, 'DDNO' as Subtype, count(*) as Total_No, sum(Amount) as Amount
FROM transaction where DDNO is not null GROUP BY AccNum, Type;];
$sql[2] = qq[desc transaction;];
open (FH, ">".$ENV{"TMP"}."\\mytmp.html") || die "Cannot open temporary file: $!\n";
print FH '<HTML><Body>';
foreach (@sql) {
	my $l = $_;
	$l =~ s/\n/<br>/g;
	print FH '<p>'.$l.'</p>';
	my $tran_cur = $dbh->prepare($_)or die "Cannot prepare: " . $DBI::errstr;
	$tran_cur->execute or die "Cannot execute: " . $DBI::errstr;
	print FH '<table border=1 cellspacing=1 cellpadding=2><tr>';
	map {print FH "<td>$_</td>"}@{$tran_cur->{NAME}};
	print FH "</tr><br/>";
	while( my @data = $tran_cur->fetchrow_array)
	{
		print FH "<tr>";
		map {print FH "<td>";
			my $r = defined ($_) ? $_ : '&nbsp;'; 
			print FH length ($r)>0 ? $r: '&nbsp;';
			print FH "</td>";}@data;
		print FH "</tr>";
	}
	print FH "</table>";
	}
print FH "</Body></HTML>\n";
my $url = "file://".$ENV{"TMP"}."\\mytmp.html";
my $commandline = qq{start "$url" "$url"};
system($commandline) == 0
    or die qq{Couldn't launch '$commandline': $!/$?};
close FH;	
$dbh->disconnect;
sleep(5);
unlink $ENV{"TMP"}."\\mytmp.html" or warn "Could not unlink ".$ENV{"TMP"}."\\mytmp.html: $!";