#!/usr/bin/perl

use strict;

my $cl = join " ", @ARGV;
print eval $cl

