#!/usr/bin/perl use NaServer qw(run); run(@ARGV);