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

##</code><code>##

open my $fh , '<', $path; 
	print $_ while ( sysread $fh, $_ , 8192 ); 
close $fh;