#!/usr/bin/perl -w
use strict;
use MyThreadSpool;

my $obj = MyThreadSpool->new(8080,my %buffer);

# and so now

print $obj->{port}.... etc etc etc