Select Code to Download

 
    my $outbuf;
    my $interp = new HTML::Mason::Interp (comp_root=>'<component root>
+',
...
    print F $outbuf;
    close(F);
    print "return value of component was: $retval\n";