Help for this page
use strict; require "vars.pm"; our $var1; our $var2;
my $num = 44; print NEWFILE "<font>$num</font>\n";