sub info() {
  my ( $nick, $reply ) = @_;
}


##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

sub foobar() {
    my ( $foo, $bar ) = @_;

    print "foo: $foo\nbar: $bar\n";
}

foobar( 1, 2 );

##</code><code>##

Too many arguments for main::foobar at prot.pl line 11, near "2 )"
prot.pl had compilation errors.