sub kmzLoader(){
	my ($KmlLoaderFile)=@_;
	open (DEST, "<$KmlLoaderFile") || warn "kmlLoader:: Can't load file";
	my @dataBuff = <DEST>;
	close DEST;
	$zipData = join ("\r",@dataBuff);
}

sub outKmz(){
print <<"OUTZIP";
Content-Type: application/vnd.google-earth.kmz
Content-Disposition: attachment; filename="$fileName"

$zipData
OUTZIP
}