my $dbh = DBI->connect($dsn, $db_user_name, $db_password);
my $sth = $dbh->prepare(qq{
  select SYS, SSYS, OWNER, RESOLUTION, DES, DT, TM, TYPE, REMTYPE, CHANGESTATUS, CURDATE()  from dbname where srep = 'yes' and DT >= CURDATE()-7});

  $sth->execute;
  while(my $row = $sth->fetchrow_arrayref) {
  $i++;

  my ($SYS,$SSYS,$OWNER,$RESOLUTION,$DES,$DT,$TM,$TYPE,$REMTYPE,$CHANGESTATUS,$CURDATE) = (@$row);
    %mail = ( To      => "$REPORTADDRESS",
              From    => 'StatusReport@healthsouth.com',
              SUBJECT => "Last Weeks Status Report",
              Message => "PROJECT: $SYS SEVERITY: $REMTYPE
TODAYS DATE: $CURDATE
TECH: $OWNER
DATE: $DT TIME: $TM
STATUS: $TRSTAT  SERVER: $SSYS
SUMMARY:
$DES

RESOLUTION:
$RESOLUTION
-------------------------------------------------------------------"
           );

    sendmail(%mail) or die $Mail::Sendmail::error;

    print "OK. Log says:\n", $Mail::Sendmail::log;
}