my @lines = unpack("v*",<MYINFILE>);   
    my $line;
     foreach $line (@lines)
      {
       print MYOUTFILE  sprintf("%lx",$line), "\n";  
      }