package Template; use base Bbs; use strict; sub read { my $f=$_[1]; open(FH,"<$f")||return; my $h; 1 while sysread FH, $h, 5120, length $h; # { # local($/); # $h = ; # } close FH; \$h; } sub expand {my $d=$_[1]; $$d =~ s/<\?perl(.*?)\?>/eval $1.$@/egs; $d;} 1; __END__