sub TestRadiusAuth
{
    my $cmd = "$radclient" .
        " -t $radius_config->{auth_timeout}" .
        " -r $radius_config->{auth_retries}" .
        " -i 1 $radius_config->{ip}:$radius_config->{auth_port}" .
        " auth $radius_config->{secret} <<EOF\n" .
        "User-Name = \"$test_user\"\n" .
        "Password = \"$test_pass\"\n" .
        "NAS-IP-Address = \"$eth0\"\n" .
        "EOF\n";
    my $response;
    open(CMD, "$cmd 2>&1 |") or die "Could not execute $cmd:$!\n";
    while (<CMD>)
    {
        chomp();
        return (1,$_) if /Session-Timeout/;
        $response .= $_;
    }
    return (0,$response);
}