You must be doing something odd (as well as the incorrect () you added) so post your code in its entirity or copy this (works fine)

my $foo = new Foo;
$foo->connect('ip', 8080 );

package Foo;

sub new { return bless {}, shift }

sub connect {
    my $self = shift;
    my ($ip, $port) = @_;
    print "$self $ip $port";
}
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print