#!/bin/perl -w

use strict;

open PIPE, "|@ARGV" or die if @ARGV;

if ( @ARGV ) {
    select PIPE;
} else {
    select STDERR;
}

while (<STDIN>) {
    print STDOUT $_;
    print        $_;
}