package Foo;
my ($host, $port); # Private vars

# rest of class