use strict;  
require "vars.pm";  
our $var1;
our $var2;  

##</code><code>##

my $num = 44;
print NEWFILE   "<font>$num</font>\n";