#!/usr/bin/perl
open OTHER, ">/dev/stdout";
while (<STDIN>) {
	print STDOUT $_;
	print OTHER $_;
}