my $template = HTML::Template->new( filename => 'atm_choose.tmpl', die_on_bad_params => 0 );
my @LINES;
while ()
{
chomp;
push @LINES, $_;
}
my $split;
for (@LINES)
{ my @row = split ('&', $_);
push @{$split}, $_;
}
$template->param(TRANSACTIONS => $split);
print header, $template->output;
__DATA__
10/02/2013 & closing balance & 0 & 1000
11/02/2013 & debit & 100 & 900
12/02/2013 & credit & 1000 & 1900