This script will does the trick:
It's not very nice but it was written 7 years ago... 
 
use MIME::Base64;

unless(defined($ARGV[0])){
print <<'END';
Usage: perl im2b64.pl one.gif two.gif etc...
Output is bin2b64.txt
Use example of result:
$c->Photo('image',-data=>$im_encode,format=>'gif');
END
exit;
}

$c = 0;

foreach(@ARGV){
open(K, $_) or die "$!";
binmode(K);
    foreach(<K>){
    $data_im .= $_;
    }

$im_encode = encode_base64($data_im);
chop($im_encode);
$ARGV[$c] =~ s/\./_/g;
$done{$ARGV[$c]} = $im_encode;
undef($data_im);
$c++;
close(K);
}

$sep = '-' x 35;

open(K,">>$ARGV[0].txt") || die "$!";
foreach $key (keys(%done)){
print K "\x24$key = \n\"$done{$key}\\n\\n\"\;\n\n";
print K "$sep\n\n";
}
close(K);

[download]

In reply to Re: Perl Tk Icons by didier
in thread Perl Tk Icons by senik148

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.