my $logopen = open LOGFILE,"<:encoding(UCS-2LE)", $file;
seek LOGFILE, 2, 0;
local $/ = undef;
my $lines = <LOGFILE>;
print '<li>';
if ( $lines =~ /Backup Completed/ )
{
  print "IDrive Backup Completed: ";
}
else
{
  print "<b>Backup FAILED:</b> ";
}
print $file . "</li>\n";