#!/usr/bin/perl
  if ( open (INFOHANDLE ,"<a.txt") ) {

	if (flock (INFOHANDLE ,1 )) { # Lock 1 oder 2?

	  
		while (<INFOHANDLE>) {
		    $linie=$_;
		    chomp $linie;
		}
	
	    }
		flock (INFOHANDLE, 8);
	}
	close INFOHANDLE;