#!/usr/bin/perl

use Math::Expression;

my $expr   = Math::Expression->new;
my $tree   = $expr->Parse( "8*1024**3" );
my $answer = $expr->EvalTree( $tree, 0 );

print "My answer is $answer\n";