#!/usr/bin/perl
use DBI;
use strict;
use warnings;
$dbh = DBI->connect('dbi:database','prithvi','prithvi') or die "Couldn't connect";
my $tran_cur = $dbh->prepare("SELECT AccountNumber, Type, SUM(Amount) FROM transaction GROUP BY AccountNumber, Type;");
$tran_cur->execute;
print "<table><tr>";
map {print "<td>$_</td>"}qw(Account Number-Total Debit Amount);
print "<br/>";
print "</tr>";
print "</table>";
while( my @data = $tran_cur->fetchrow_array)
{
 my $rec = join ('-',@data);
 print "$rec\n";
}
$dbh->disconnect;