my $interval = 300;
my $cpid = fork();
my $upto = localtime() + $interval;
while (1) {
  if ($upto == localtime()) {
    $upto = localtime() + $interval;
    system("/home/rambo/perl-assignments/send_test_mail.pl");
  }
  sleep 1;
}