open (IN, "<$path/$filename.tmp") || die $!;
binmode IN;
open (OUT, ">$path/$filename.jpg") || die $!;
binmode OUT;
print OUT $buf while read IN, $buf, 8192;
close IN;
close OUT;