use MIME::Base64; 
open (my $image, 'Z:\capture.png') or die "$!"; 
$raw_string = do{ local $/ = undef; <$image>; }; 
$encoded = encode_base64( $raw_string );

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

use strict; 
use warnings; 
use MIME::Base64; 
 
my $input_filepath  = 'input.png'; 
my $output_filepath = 'output.png'; 
 
open my $input_filehandle, '<', $input_filepath or die $!;  
my $string  = do { local $/ = undef; <$input_filehandle> };  
close $input_filehandle; 
 
my $string_encoded = encode_base64( $string ); 
my $string_decoded = decode_base64( $string_encoded );  
 
open my $output_filehandle, '>', $output_filepath  or die $!;  
binmode $output_filehandle;  
print $output_filehandle $string_decoded; 
close $output_filehandle;