A Stand-Alone Perl Server

The following program shows how to write an XML-RPC server in Perl:

    use Frontier::Daemon;
    
    sub sumAndDifference {
        my ($x, $y) = @_;
        return {'sum' => $x + $y, 'difference' => $x - $y};
    }
    
    # Call me as http://localhost:8080/RPC2
    $methods = {'sample.sumAndDifference' => \&sumAndDifference};
    Frontier::Daemon->new(LocalPort => 8080, methods => $methods)
        or die "Couldn't start HTTP server: $!";