my $cat;
$cat = @_ if @_;