#!/yourpath/perl

use MIME::Base64;
use Strict;

   my $s_enc = "f89b1c0a34d7ab5446368c48107fff2a138baf8650d6c6464518c3f0d4c850083d8b1d30";

   print encode_base64($s_enc) . "\n";