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;
[download]

  Jenda

Hi Jenda,

Sorry for the confusion with the code above...I didn't put everything on the forum correctly. It was missing lots of code. I'm faily new at PERL and I'm learning as I go, putting bits and pieces of code together that I've obtained on the internet.

I don't know how to put everything together. This is the first code section I want to use....The code will use "TAIL.exe" placed in the WINNT\SYSTEM32 directory. How do I get the the "TAILED" result from the "LOG1.LOG" and create a new log with that informaton. Once this is done, I need to send an email with the newly created log file. Once the email is sent the weblogic service needs to be restarted. (I want to run the scipt remotely).

- Can I specify remote machines to run this script, for example "\\Server1\Logs\testlog.log" and remote service to restart "weblogic".

*** THANKS AGAIN JENDA FOR YOUR WISDOM! ******
PLEASE HELP ME PUT THIS TOGETHER.....

Read more... (14 kB)

Q: How do I do X on Windows?
A: First install UNIX . . . :)

Of course one can install Cygwin and get perfectly good versions of tail et al.