#!/usr/bin/perl -w


use strict; 
use HTML::Embperl;

my($code) = <<EOC;
this is some code 
[- \$poop = "foo" -]
[+\$poop+]
EOC

print $code,"\n";

HTML::Embperl::Execute(
  { 
    input=>\$code,
    mtime=>1,
    req_rc=>undef()
  }
);

##</code><code>##

/****************************/
  jason@gost.net, wh@ckz.org
    http://jason.gost.net
/*****************************/