#!perl -w
use strict;
my $param = shift;
print "About to run: [$param]\n";
my @res = eval($param);
print $@ if $@;

sub egal () 
{
    print "Got arguments [@_]\n";
}