#!/usr/bin/perl

$server = "127.0.0.1";
$secret = "test123";
$radclient = "/usr/local/freeradius/bin/radclient";

open (T,">/tmp/foo.tmp") || die;
print T "User-Name = \"invalid\"\n\n";
close (T);

open (R,"$radclient -t 1 -f /tmp/foo.tmp $server acct $secret 2>&1 |") || die;
chomp($result=<R>);
close (R);

unlink ("/tmp/foo.tmp");

if ($result =~ m/Received response/) { 
	print "OK\n";
} else {
	print "BAD\n";
}