#!/usr/bin/perl

use Modern::Perl;
my $sec = 0;

while($$) {
        # Do something. May want to fork a child to do the work.
        say "running...[$sec]";

        exit if $sec == 600;
        sleep 1;
        $sec++;
}