sub olpoi_line {
        my $file = shift ;
        print $file "1.2,3\tPunkt 1\tKoordinate 1\t(Kein Icon)\t0\t0\n";
}