GZ->error and die $!;
$?=0; close GZ; $? and fail("gunzip for check failed code $?");
-my $mdatafile= MIME::Entity->build(Type => 'application/octet-streak',
+my $mdatafile= MIME::Entity->build(Type => 'application/octet-stream',
Disposition => 'attachment',
Encoding => 'base64',
File => $datafile);