#!/usr/bin/perl

$args = join ($",@ARGV);
$result = eval "$args";
print "$args = $result\n";
