package NaServer;
# this is just a dummy version of NetApps NaServer !!
use strict;
use warnings;
use Carp;

sub new {
    my $class = shift;
    my $self = {};
    bless \$self, $class;
}

sub get_val {
    return rand 1000;
}

1;