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";
}