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";
}
################################################## ############