my $sth = $dbh->prepare("$Select_Statement");
$sth->execute();

##</code><code>##

select severity,class,status,date_event,hostname,msg,administrator,source,sub_source,rep.server_hndl,rep.event_hndl,rep.date_reception from tec_t_evt_rep rep where rep.date_reception > 1157568225 and rep.date_reception < 1157568525  and (  hostname like '%aixjcsa1%' )


##</code><code>##

while (@data = $sth->fetchrow_array) {
   bleh blah bleh
}