elsif ($ARGV[0] eq "Errori OMP OVA_LOGGER") { # $mailto = 'some1@somewhere, some2@somewhere, some3@somewhere, some4@somewhere, some5@somewhere'; $mailto = 'some1@somewhere'; $templ = 'template_errori_omp_ovalogger.html.tt'; open(MYINPUTFILE, "<$data_ovalogger"); my(@lines) = ; print "@lines\n"; my %params; $params{errori} = \@lines; my %options; $options{INCLUDE_PATH} = '/home/alcatel/.scripts'; $options{INCLUDE_PATH} = '/home/alcatel/.scripts/sendmail'; my $msg = MIME::Lite::TT::HTML->new( From => 'some6@somewhere', To => $mailto, Subject => $ARGV[0], Template => { html => $templ, }, TmplOptions => \%options , TmplParams => \%params , ); $msg->send('smtp', '192.168.16.143', Timeout => 60 ); }