#!/usr/bin/perl

use strict;

use FileHandle;

main: {
	my @fh;
	foreach my $cmd ( @ARGV ) {
		if ( $cmd eq '1' ) {
			push @fh, \*STDOUT;
			next;
		}
		my $fh = FileHandle->new;
		open ($fh, "| nice -n 19 $cmd") or die "can't fork $cmd";
		push @fh, $fh;
	}
	
	my $buffer;
	while ( sysread(STDIN, $buffer, 65535) ) {
		syswrite($_, $buffer) for @fh;
	}
	
	close $_ for @fh;
}
