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

my $mw=tkinit;

$mw->geometry('+300+300');

$mw->fontCreate('big',
   -family=>'arial',
  -weight=>'bold',
  -size=>int(-18*18/14));

my $c=$mw->Canvas(-width=>600,-height=>100,-bg=>'white')->pack;

#Create haiku
my $t1 = $c->create('text',20,20,
              -anchor=>'w',
              -font => 'big',
              -text=>'my socks are new, but');


my $t3;

$mw->after(2000,sub{

my $t2 = $c->create('text',20,50,
              -anchor=>'w',
              -font => 'big',
              -text=>'it won\'t last long, because ');

my ($bx,$by,$bx1,$by1)= $c->bbox($t2);                                                    
#print "$bx1\n";                       
# $t3 = $c->create('text', 290 ,50,  # fixed :-)
$t3 = $c->create('text', $bx1 ,50,
              -anchor=>'w',
              -font => 'big',
              -text=>'Time');
});

my $t4;
$mw->after(5000,sub{

 $t4 = $c->create('text',20,80,
              -anchor=>'w',
              -font => 'big',
              -text=>'keeps moving along');
});

$mw->after(5500,sub{ $mw->repeat(10, sub{
                          $c->move($t3,1,0);  
                          $c->move($t4,1,0);
                          })});

MainLoop;