#! /usr/bin/perl
use strict;
use MIME::Base64 qw( decode_base64 );
use IO::All;

decode_base64( io( $ARGV[0] )->slurp ) > io( $ARGV[1] );

__END__