open LOG, "< pinglist1.txt";open LOG1, ">>perl_logfile";while ( $m=) {print LOG1 $m;}close LOG;close LOG1;
