#!/usr/bin/perl

$infile = @ARGV[0];
$outfile = "OK.txt"; 
$outfile2 = "ERROR.txt";      
@Filter = ('01005;01000','01005;01001','01005;01002','01005;01003');
$zaehler = 0;