Somename::foo() called too early to check prototype at d:/Perl/pm/foo_prototype.pl line 8.
$VAR1 = [
          4,
          5
        ];
$VAR1 = [
          4,
          5
        ];

Compilation finished at Sat Apr 15 00:12:57