use strict;
use warnings;
use MIME::Base64;

my $infile  = "fragezeichen.jpg";
my $outfile = "questionmark.jpg";

# Bild einlesen und codieren
open DAT, '<', $infile or die "Oops: $!\n";
binmode DAT;  # Sie wissen schon: fuer Windwos
my $bin = join("", <DAT>);
close DAT;
my $coded = encode_base64($bin);

# Bildschirm vollmuellen
print $coded;

# wieder decodieren
open DAT, '>', $outfile or die "Oops: $!\n";
binmode DAT;
print DAT decode_base64($coded);
close DAT;