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