Select Code to Download

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

select severity,class,status,date_event,hostname,msg,administrator,sou
+rce,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%' )

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