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);