use MIME::Base64 qw/encode_base64 decode_base64/;

# Bilddatei einlesen
open (my $fh, $file_name) or die $!;
binmode $fh;
local ($/) = undef;  # slurp

# als Base64-kodiert in Variable speichern
my $image_base64_data = encode_base64(<$fh>);
close($fh) or die $!;

# Base64-Daten als Bild speichern
$image_base64_data = 'R0lGODlhAQABAJEAANnZ2f///////////yH5BAEAAAAALAAAAAABAAEAAAICRAEAOw==';
open (my $fh, ">", $file_name) or die $!;
binmode $fh;
print $fh decode_base64($image_base64_data);
close($fh) or die $!;