#! /usr/bin/perl -w

use XML::Parser;
use Data::Dumper;

my $Kursname = "server12.KursServer";
my $KursErg = "Ergebnis.Log";

my $Logpath = "data/home/user1/Perl";
my $Log = "$Kursname.2009-08-21.log";
my $Variable = "HTTP ERROR";

open ($Logpath, "<Log>");
print "Error message: text/Log\n";

@ErrorList = ();

foreach $Line (Logpath)
{
if ($Line = ($Variable))
    {
      print "- ".$."<BR>";
      push(@$KursErg, $1);
    }
}

open (OUT,">KursErg");
print OUT @$KursErg;
close (OUT);