Select Code to Download

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

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