my $fh;
if (open($fh, "$mailfile") ) {
  $email->attach(Type        => "text/html",
                 Disposition => "inline",
                 FH          => $fh,
  );
} else {
  die "can't open file to attach";
}