#!/usr/bin/perl $EXEC = "bigecho"; if ($#ARGV == -1) { while () { chomp; system($EXEC, $_); } } else { system($EXEC, @ARGV); }