my $decoded= MIME::Base64::decode_base64($encoded);
open my $fho, '>', 'Z:\photo.png' or die $!;
binmode $fho;
print $fho $decoded;