base64エンコードされた画像をデコードしてファイルに保存する

MIME::Base64 を使用。
perl v5.12.1

use MIME::Base64;
my $image_base64 = ’<base64エンコードした画像’>;
# base64形式からデコード
my $image_bin = decode_base64($image_base64);
# ファイルを開く
open $fh, ’+>’, ’/path/to/file’ or die "Cannot open : $!";
# ファイルをバイナリモードに
binmode $fh;
# 書き込み
print $fh $image_bin;
# ファイルを閉じる
close $fh;