for $i ( 0 .. 23 )
    {
    $mfr=$info[$i]{'MFR'};
    $mes=$info[$i]{'MES'};

    my @array = split //,$mes;   
    @array = map(ord, @array);   
    my @chars = map(chr, @array);

    my @array2 = unpack("C*", $mes);
    my @chars2 = map(chr, @array2);

    $c="$dpmg/$mes.$epng";   
    if (-e $c) { $c2=$c; } else { $c2="$dpmg/_x2.png"; }

    $d="$dpmg/$mes.$epng";

    print "<DIV>$mfr</DIV>
           <DIV>$mes</DIV>
           <DIV>$c</DIV>
           <IMG src='$c2'>  
           <DIV>$d</DIV>
           <IMG src='$d'>  
           <DIV>@array</DIV>
           <DIV>@chars</DIV>
           <DIV>@array2</DIV>
           <DIV>@chars2</DIV>  
           <BR>\n";
    }