perl base58perl.pl

Cannot decode! Invalid Base58 Character(s)!

my $fileSrc = 'base58.txt';
open my $fhSrc, $fileSrc or die "Could not open $fileSrc: $!";

my $fileDest = 'hex.txt';
open(my $fhDest, '>>', $fileDest) or die "Could not open file $fileDest: $!";

while( my $base58_encoded_address = <$fhSrc>)  {
my $binary_address = decodebase58tohex($base58_encoded_address);
say $fhDest $binary_address;
}

close $fhSrc;
close $fhDest;