#!/usr/local/bin/perl -w
#
#	calculate.lc
#
#	This defines the function Calculate which evaluates an
#	expression and returns the value.
#
use strict;
use vars qw(%Callable);

sub Calculate
    {
    my($args) = @_;
    my($result);

    $args =~ s/[^\d\-+*\/()]//g;
    eval("\$result = $args");
    return $result;
    }

$Callable{'Calculate'} = 1;
return 1;