open( FH , "+<" , $source ) or die "Can not open file: $source $!\n";
binmode(FH);