use MIME::Lite;
my $msg = MIME::Lite->new(
  From  => 'WirelessDataServices@dobson.net',
  To    => $props->{maillist},
  Subject => "Wireless Data Weekly Report for $time\n",
  Type  => 'multipart/mixed'
);

$msg->attach(Type => 'text/html',
  Data => qq{
    <img src="cid:sms.gif"><br>
    <img src="cid:wsb.gif"><br>
    <img src="cid:mms.gif"><br>
    <img src="cid:byte.gif"><br>
    <img src="cid:frate.gif"><br>
  }
);

$msg->attach(Type => 'image/gif',
  Path => '/usr/local/reports/wds/tims_rept/sms.gif',
  Id => 'sms.gif',
);

$msg->attach(Type => 'image/gif',
  Path => '/usr/local/reports/wds/tims_rept/wsb.gif',
  Id => 'wsb.gif',
);

$msg->attach(Type => 'image/gif',
  Path => '/usr/local/reports/wds/tims_rept/mms.gif',
  Id => 'mms.gif',
);

$msg->attach(Type => 'image/gif',
  Path => '/usr/local/reports/wds/tims_rept/byte.gif',
  Id => 'byte.gif',
);

$msg->attach(Type => 'image/gif',
  Path => '/usr/local/reports/wds/tims_rept/frate.gif',
  Id => 'frate.gif',
);

$msg->attach(Type => 'application/vnd.ms-excel',
  Path => '/usr/local/reports/wds/tims_rept/WDS.xls',
  Id => 'WDS.xls',
);

$msg->send('smtp','smtp.dobson.net');