$ perl -e'
    my $host = "localhost";
    eval $ARGV[0];
' 'system("echo", $host)'
localhost