in reply to Re^2: cat -ing Multiple files with Perl
in thread cat -ing Multiple files with Perl

Untested. 
sub catalanche
{
    if ( @_ == 0 or $_[1] eq '-' ) # let - signify stdout as well
    {
        system qq( cat "$_" ) for @{$_[0]};
    }
    else
    {
        system qq( cat "$_" >> "$_[1]" ) for @{$_[0]};
    }
}

[download]
We're building the house of the future together.

In Section Seekers of Perl Wisdom