my $i=0;		
for (my $count=1; $count<11; $count++)
{
$i++;
print "At this time $i - Interaction at this $time and $date<br>";

}