#!/usr/bin/perl -w
#---AUTOPRAGMASTART---
use 5.012;
use strict;
use warnings;
use diagnostics;
use mro 'c3';
use English qw( -no_match_vars );
use Carp;
our $VERSION = 0.996;
#---AUTOPRAGMAEND---

BEGIN {
    # So we find the rest of our code
    unshift @INC, ".";
};

use Rader;
our $APPNAME = "Simple Radius Server";
my $psname = "simpleradius";
print "Changing application name to '$psname'\n\n";
$0 = $psname;

my $server = Rader->new(
    host    => 'localhost',
    port    => 1812,
    proto   => 'udp',
);

$server->run();