open(PIC,"<","$dir\\$filename");
	while (read(PIC,$_,57)) {
		$binData .= encode_base64($_);
	}
	close PIC;
	open(PIC,">","E:\\$filename");
	print PIC decode_base64($binData);