use strict;
use warnings;

my $param = shift;
eval $param;
die $@ if $@;