#!/usr/bin/perl
 use MIME::Base64;
$imgpath = "/home/freexxxm/public_htmlews_photos";
 # Ed. - rot13ed to make firewall safe
 $cat="Nany-Frk";
 open (LOG, ">> log2");
opendir (DM, "/home/usr/public_htmlews_photos") or print  "$today <b>ERROR</b> couldn't get contents of <br>dir $!\n" ;<br>
    @files=grep { /\.jpg/ } readdir(DM);
    closedir(DM);
    $img=$files[rand(@files)];
    while ($seen){$img++};
    $img;
print  "$img $!\n";
open(FILE, "$imgpath/099.jpg") or print LOG "$today <b>ERROR</b> opening image while posting $!\n";<br>
while (read(FILE, $buf, 60*57)) {
     print LOG"$buf$!";
$unf .=encode_base64($buf);
}
print "$unf";
close FILE;
close LOG;