#!/usr/bin/perl
use strict;
use warnings;

while (1) {
  print "still here...\n";
  sleep 30;
}