@echo off
rem This is a simple implementation of xargs.  It starts out as a cmd file
rem and switches to perl.
rem
rem This script is provided for convenience and is not supported in any way
rem by Object Computing, Inc.
rem
rem Author: Chad Elliott
rem   Date: 4/14/2005
rem

perl -x %~f0 %*
goto exit

#!/usr/bin/perl

use strict;
use File::Basename;

if ($#ARGV == -1) {
  print "Usage: ", basename($0), " [command [initial-arguments]]\n";
  exit(0);
}

my($cmd)  = shift;
my(@args) = @ARGV;

while(<STDIN>) {
  push(@args, split(/\s+/, $_));
}

exec($cmd, @args);

print STDERR "$0: $cmd: $!\n";

my($exit) = '
:exit
rem ';