--- gobook.perl	2013/11/06 03:20:01	1.4
+++ gobook.perl	2013/11/23 02:57:44	1.5
@@ -512,6 +512,10 @@ foreach my $stripnum ( sort keys %{$stri
   $Text::Wrap::columns = 30;
   if ( $strips->{strip}->{$stripnum}->{comment} =~ /Danger/ ){
    $p->setcolour("red");
+   # Draw over image ...
+   $p->setlinewidth(4);
+   $p->arc( 70, 60, 20, 0, 360);
+   $p->line(50,40, 90,80);
   }
   my @para = split (/\n/,wrap('', '', $strips->{strip}->{$stripnum}->{comment}));
   while (my $ln = shift @para){