#!/usr/local/bin/perl -w
$|++; print "calc: ";
print eval, "\ncalc: "
while chomp( $_ = <STDIN> );
[download]

Pretty sure this code is simmilar to some other code I found round here somewhere, heh. It should do the job for you..

-- Can't never could do anything, so give me and inch, I'll make it a mile.