#!/usr/bin/perl -w

while (<>) {
open (LDAPOUT, ">>/home/code/writtenbyperllog");	
	print LDAPOUT $_;
close LDAPOUT;
}