#!/usr/bin/perl -w
# soak [OUTPUT] - write stdin to OUTPUT (or stdout), not clobbering OUTPUT.

undef $/;
my $s = <STDIN>;
$ARGV[0] and $s and open(STDOUT, ">", $ARGV[0]) || die "soak: $!\n";
print $s;