sponge

   1 #! /usr/bin/perl -w
   2 use strict;
   3
   4 binmode STDIN;
   5 undef $/;
   6 my $input = <STDIN>;
   7 open OUT, "> $ARGV[0]" or die "couldn't open $ARGV[0]: $!";
   8 print OUT $input or die "couldn't write to $ARGV[0]: $!";
   9 close OUT or die "couldn't close $ARGV[0]: $!";