open (OUTFILE, ">bin.txt") or die "Can't open new text file! \n" , &clean_up;      # Make temp text file to unpack the bin file
    
    open (INFILE, "$bin_file_name") or die "Can't open nvm file! \n" , &clean_up;      # Open nvm binary file
    #### This unpacks the binary file and puts it in a text file bin.txt ####
    my @lines = unpack ("W*", <INFILE>);
    my $line;
    foreach $line (@lines)
     {
      print OUTFILE sprintf("%02X", $line);
     }
    close (OUTFILE);
    close (INFILE);