#!/usr/bin/perl -w
require 'msgimg.pl';
$data_file="code.txt";
open(DAT, $data_file) || die("Could not open file!");
$msg=<DAT>;
close(DAT);
$msg =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack('C', hex($1))/eg;
&do_msg_image($msg, "\0");