>> print (@contents);
You have to print to the file handle, otherwise, nothing will write to WRITEFILE, but to screen only. So, you have to write as : print WRITEFILE @contents; >> @newcontents = <NEWWRITEFILE>; >> print "\n The contents of writefile.txt is $newcontents \n"; No, $newcontents here will prints nothing... this should be : foreach $line(@newcontents) { print $line."\n" }; or print $_ for (@newcontents); -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]