path: root/sponge

#! /usr/bin/perl -w

# Origin: http://riva.ucam.org/svn/cjwatson/bin/sponge

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]: $!";