Help for this page
#! /usr/bin/perl ... binmode OUT ; print OUT $image ; close OUT ;
#! /usr/bin/perl ... close IN ; close OUT ;