# file eval.pl
use strict;
use warnings;

my $sep = shift @ARGV;
my $evaled = eval "qq/$sep/";
print "$evaled:\n"