before the while loop: if (-t STDIN) { do stuff if not piped a file } else { #your while loop processes piped files here while (<STDIN>) { chomp; print "$_\n"; } } chris_piechowicz@hotmail.com