open(FD, ">>/users/smisra/test4.pl")||die("Cannot open the file\n");