c:\@Work\Perl\monks\syedasadali95>perl write_to_2_files_1.pl file_in.txt zero.txt one.txt