#!/usr/bin/perl use strict; use Opals::Context; use Opals::Date qw( date_text ); use Opals::User qw( user_getInformationById ); use Opals::Tb_Transactions qw( trans_getDetailBalance trans_getReceiptDetail trans_getUnpaidFineList trans_getTaxTable trans_getPreviousBalance ); my $dbh = Opals::Context->dbh(); END { $dbh->disconnect(); } my $cgi = CGI->new; my $strHTML = "

TEST

"; print "Content-type: text/html\n\n"; print $strHTML;