$ perl -MO=Deparse,-p - my($Files) = @_; my $FilesR = @_; ^D (my($Files) = @_); (my $FilesR = @_); - syntax OK