print "Content: $page\r\n"; print "Content-disposition: inline; filename=\"$page\"\r\n"; my $size = (-s "$page"); print "Content-length: $size\r\n"; print "Content-type: application/octet-stream\r\n"; print "\r\n"; local $/ = undef; open (F, "<$page") || die; binmode(F); binmode(STDOUT); print ; close(F);