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