#!/usr/bin/perl -w
use strict;

print "Content-type: text/html\n\n";

my $in = 119.8;
my $in_view = $in * 2;

my $count = 0;
my $period = 599;
while ($count < 5){
  unless  ($period >= $in_view) {
    print "$period ::$in_view<br>";
    $in = $period;    
   } 

   $count += 1;
   $period = $period - $in;
  
}