fran

package Test;
use strict;

sub new {
        my $class = shift;
        my $self = {};

        $self->{Socket} = shift;

        bless $self, $class;
        return $self;
}