#!/usr/bin/perl -w

use strict;

my $tick = "tick\n";

# loop until this process is terminated from the outside
while (1) {
  print $tick;

  # Make "tick" into "tock" and "tock" into "tick"
  $tick =~ tr/io/oi/;

  # sleep 10 seconds
  sleep( 10 );
}