package Listen;
require Tie::Handle;

@ISA = qw(Tie::Handle);

use strict;
use warnings;
use IO::Socket::INET;

sub new
{
	#constructor
	my $class = shift;
	my $self = {};
	bless $self;
	$self->tie(new IO::Socket::INET(Listen => 1, LocalPort => 1863, ReuseAddr => 1));
	return $self;
}

1;