$text = "foo";

sub func { return "something"; }
...
...

##</code><code>##

$obj = capsule("foo.pl");