$ perl -c -e'
   use strict;
   my $num = 44;
   print NEWFILE   "<font>$num</font>\n";
'
-e syntax OK