Subversion Repositories socgen

################################################## ############

#!perl

use strict;

$| = 1;

while (1) {

print "Please enter your expression (or 'exit' to exit): ";

chomp(my $cmd = <>);

exit if ($cmd =~ /^\s*exit\s*$/);

my $result = eval "$cmd";

print "Result = $result\n\n";

}

################################################## ############