#!/usr/bin/perl -T
use strict;
use Math::RPN;
my $string = '5 2 2 3 add pow 2 sub mul 10 div';  # (5*(2**(2+3)-2)) / 10 == 15
my $result = rpn (split /\s+/, $string);
print "result: $result\n";
__END__
result: 15