$ perl -d:Modlist -e "use CGI;"
CGI                    3.51
CGI::Util              3.51
Carp                   1.11
Exporter               5.63
constant               1.19
overload               1.07
vars                   1.01
warnings               1.06
warnings::register     1.01

##</code><code>##

syswrite $self->{file}, $tf, length($tf) - (BLOCK * 2);