#!/usr/bin/perl -w
use strict;
 while () {
    my $wait = 6000;
    my $time_now= time;
    &wait ($wait);
    print time-$time_now,"\n";
 }
 
 sub wait{
    my $time =@_;
    sleep $time;
 }


##</code><code>##

 
1
1
1
...