use strict;

my $file_name=$ARGV[$0];
my $buf;

use MIME::Base64;
   open(FILE, $file_name);
	while ($buf = <FILE>) {
       print MIME::Base64::decode($buf);
	   }