[mgear/mgear.git] / experiments / test-tee

#!/usr/bin/perl
open OTHER, ">/dev/stdout";
while (<STDIN>) {
	print STDOUT $_;
	print OTHER $_;
}
Commit	Line	Data
00804b7c MM	1	#!/usr/bin/perl
	2	open OTHER, ">/dev/stdout";
	3	while (<STDIN>) {
	4	print STDOUT $_;
	5	print OTHER $_;
	6	}