Ha, ha, ha ... you are soooo funny.
But the AnonymousMonk seems to be a little confused as well. The lengthy code does a lot of things, but there's no tailing and mailing. What is the real question? How to get the results of tail.exe? Or how to include them in the email? Or what? And why did you include the service related code?
I think you want something like this:
$loglines = `tail -50 $logfile`;
$message = <<"*END*";
This email was generated after an error was detected,
the NetRestartService.pl script was executed.
Log file:
$loglines
*END*
$msg = MIME::Lite->new(
From =>'NetRestartService',
To =>'Test@test.com',
Cc =>'Test2@test2.com',
Subject =>'Perl Script to restart remote NT Service - NetRestartServ
+ice.pl',
Data => message ,
);
$msg->send;
Jenda