print "Content-type: video/mp4\n";
print "Content-length: $filesize\n\n";
open(FILE, $path) or die;
	while(<FILE>) { print }
close(FILE);