#!/usr/local/bin/perl -w
# p - evaluate Perl statement and print its value, useful as a calculator
# Andrew Ho (andrew@zeuscat.com)

require 5.005;
use strict;

use File::Basename qw(basename);
use vars qw($ME);
$ME = basename $0;

my $retval = undef;
if(@ARGV) {
    eval { $retval = eval join ' ', @ARGV };
} else {
    local $/ = undef;
    eval { $retval = eval <> };
}
print defined $retval ? $retval : '(undef)';
print "\n" unless defined $retval && $retval =~ /\n$/;

exit 0;