#!/usr/bin/perl

use Getopt::Long;

# Set default options
sub usage {
    return " Usage: $0 <expression>\n\n"
	. " This prints the results of <expression> in Perl, with added\n"
	. " variables \$pi and functions acos, asin, atan, log10.\n\n"
	. " Optional arguments: \n"
	. " -h        Print this message\n";
}
my $help;
GetOptions("h" => \$help, "help" => \$help);
die usage() if (($help) or ($#ARGV < 0));

my $pi= 3.14159265358979;
use POSIX qw( acos asin atan log10 );
foreach (@ARGV) { 
    print eval;
    print "\n";
}