sub present 
{
        my $class  = shift;
        my $socket = shift;
        print $socket $class->head, "\n";
}

...

$obj->present ($socket);