#!/usr/bin/perl
# Copyright (c) 2006 Eclipse Foundation, made available under EPL v1.0
# Contributors Ward Cunningham, Bjorn Freeman-Benson
#
# usage: 
# chuck.pl insert.pl < TAB_FILE
#
use strict;
my $cmd = "perl " . shift;

my $h = <STDIN>;
while ($_ = <STDIN>) {
	open (S, "| $cmd");
	print S $h;
	print S;
	for (2..1000) {
		last unless $_ = <>;
		print S;
	}
}