#!/usr/bin/perl
open(OUTPIPE, "$ARGV[0]") || die;
while(<STDIN>)
{
	print STDOUT $_;
	print OUTPIPE $_;
}
close(OUTPIPE);