} elsif ($size < $length) {
  my $rolled_log = "$logfile.1";
  if(-e $rolled_log){
      open(LOG, $rolled_log) || die "couldn't open file";
      seek (LOG, $length+1,0);
      my $data_to_send = "";
      while(<LOG>){
         $data_to_send .= $_;
      }
      close LOG;
      open LOG, $logfile || die "Couldn't open logfile";
      seek (LOG, $length+1,0);
      while(<LOG>){
         $data_to_send .= $_;
      }
      my $smtp=Net::SMTP->new($smtpserver,Timeout=>30);
      $smtp->mail($from);
      $smtp->to($to);
      $smtp->data();
      $smtp->datasend("From: $from\n");
      $smtp->datasend("Subject: $applicationname Error\n");
      $smtp->datasend("\n$data_to_send");
      $smtp->dataend();
      $smtp->quit();
      open FILE, ">$lengthfile" || die "Couldn't open lengthfile for w
+riting";
      print FILE $size;
      close FILE;


}
[download]

Bzzzt! What's with the

If you're running this script against two or more logfiles, which one blew up? Why did it blow up? We all know that should be written as

A die expression is a terrible thing to waste.

But that's still no good. If the open fails, nothing is going to be printed out in any event, because precedence rules imply that the statement should be parsed as:

Which means unless the scalar $lengthfile is undefined false (thanks Juerd!), the die is never going to be executed. And then the error message would be really puzzling. So it should be written as:

There's also a bit of an indentation flaw at the end of the code. At first I thought you were systematically rewriting the lengthfile, until I noticed that the code was actually within the if block.

g r i n d e r
print@_{sort keys %_},$/if%_=split//,'= & *a?b:e\f/h^h!j+n,o@o;r$s-t%t#u';

Which means unless the scalar $lengthfile is undefined,

s/undefined/false/

False are: undef, 0, "0", ""

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$
[download]

UPDATE</b: Also note it uses the inode and not the size to track changes, the author believes it to be more reliable.

--
perl -pe "s/\b;([st])/'\1/mg"