#!/usr/bin/perl -w
use warnings;
use strict;
use feature qw(switch say);
use NaServer;

my $session = NaServer->new();
my $val = $session->get_val();
if ($val > 500 ) {
    say 'Value to high: ' . $val;
    exit 2;
} else {
    say "Value OK ($val)";
    exit 0;
}