package SDaemon; 
sub new { 
    my ($classname, $port) = @_; 
    my $self = {}; 
    bless($self, $classname); 
    $self->{PORT} = $port; 
    return $self; 
} 
sub url { 
    my $u = 'http://127.0.0.1:'.$self->{PORT}.'/'; 
    return $u; 
} 
sub product_tokens { 
    "libwww-perl-daemon/1.21"; 
} 
1;