print "Content-Type: application/octet-stream;\r\n";
print "Accept-Ranges: bytes\r\n";
print "Content-Length: " . length ($content) . "\r\n";
print "Content-Disposition: attachment; filename=\"$datname\"";
print "\r\n\r\n";
print $content;