#!/usr/bin/perl -w 
use strict;
#
# This is a rotten hack...
open FH1,"cat /tmp/* |" or die "Cat died:$!";
while (my $line=<FH1>){
     # etc. etc. etc.
}