$filename0=$ARGV[1];
	open($RF1, "<", $filename0);
	binmode $RF1;  
	$filename1=$filename0; 
	$filename1.="test.txt"; 
	open($WF1, ">", $filename1); 
	for(;($n=read $RF1, $data, 65536) !=0;$buf.=$data)
	{
	}
	@buffer=unpack('(C1)*', $buf);
	foreach(@buffer)
	{
		print $WF1 "$_\n";
	}
	close $RF1;
	close $WF1;