use warnings;
use strict;

use Text::Template qw(fill_in_string);

print fill_in_string(<<'EOT');
Numbers generated at { $start_time = time }<br>{
  for my $x (1 .. 4) {
    $OUT .= "\nNumber=$x<br>"
  }
}
Time used { time - $start_time } seconds.<br>
EOT