#! /usr/bin/perl -w
use strict;

binmode STDIN;
undef $/;
my $input = <STDIN>;
open OUT, "> $ARGV[0]" or die "couldn't open $ARGV[0]: $!";
print OUT $input or die "couldn't write to $ARGV[0]: $!";
close OUT or die "couldn't close $ARGV[0]: $!";