my @files = split /,/,$Attachment;
               foreach (@files) {
                 chomp;
                 my $f_name = $_;
                 $f_name =~ s/\/root\/Helpers/reports\///;
                 print "FILENAME:$f_name\n";
             my @parts = (
             Email::MIME->create(
              attributes => {
              filename     => "$f_name",
              content_type => "application/x-7z-compressed",
              disposition  => "attachment",
              encoding     => "base64",
              name         => "$f_name",
              },
              body => io( $_ )->all,
              ),
              );
           $email = Email::MIME->create(
           header_str => [ From => 'reporter@example.com' ],
           parts      => [ @parts ],
           header_str => [ To => $To ],
           header_str => [ Subject => $Report_name ],
            );
$email->filname_set($f_name);
$email->name_set($f_name);
my $eml = $email->as_string;
}