{
    my $sth;
    sub CheckTransmissionHist {
        my ( $FileId, $DepartmentID, $ScheduleDttm) = @_;
        $ScheduleDttm = '07/03/07';

        my $ltqs_dbh = &ConnectToDatabase();

        my $SelStatement =
           "SELECT count(*)
            FROM   trans_hist
            WHERE  TO_CHAR(sched_dttm,'YY/MM/DD') = ? and
                   dep_id = ?                     and
                   file_id = ?";

        unless( defined($sth)) {
           $sth = $ltqs_dbh->prepare($SelStatement)
           or die "Can't prepare statement:$SelStatement , $DBI::errstr";
        }

        $sth->bind_param( 1, $ScheduleDttm ) or die "BOOM";
        $sth->bind_param( 2, $DepartmentID ) or die "BOOM";
        $sth->bind_param( 3, $FileId ) or die "BOOM";
        $sth->execute()
               or die "Can't execute statement: $SelStatement , $DBI::errstr";

....
....