#!/usr/bin/perl

use strict;

my $host = 'localhost';

# Use 1 of the following lines:
#my $output = eval($ARGV[0]);
my $output = $ARGV[0];

print "COMMAND:  $output\n";
system($output);

##</code><code>##

script.pl "echo hello"

##</code><code>##

{C} > script.pl "echo hello"
COMMAND:  echo hello
hello

##</code><code>##

{C} > test "echo $host"
COMMAND:  echo $host
$host