1234567891011
use strict;open(FILE, "> movie.mov") or die;binmode(FILE);my $hexcode = "ac4165ffff32765ff3";for(my $i = 0; $i < length($hexcode); $i += 2){ print FILE chr(hex(substr($hexcode, $i, 2)));}close(FILE);