#!/usr/bin/perl -w

my $cmd;
$cmd = join(' ', @ARGV);
print eval $cmd, "\n";