1
2
3
4
5
6
7
8
9

use warnings;
use strict;

sub mysub($$)
{
	print join("\n", @_);
}

mysub("1", "2", "3");

Quote

Too many arguments for main::mysub at subtest.pl line 9, near ""3")"
Execution of subtest.pl aborted due to compilation errors.