#! perl
use warnings;
use strict;
use threads;
use Image::Magick;

my $image = Image::Magick->new(
  size => "600x600",
);

$image->Read("xc:white");
for my $i (200..400){
  async{
    my $color = $i % 2 ? '#f00' : '#0f0';
    $image->Draw(
      primitive => 'line',
      points    => "$i,100 $i,500",
      stroke    => $color,
    );
  }->join;
}

$image->Set(magick=>'gif');                                           

my $blob = $image->ImageToBlob();

open(FH,"> $0.gif")or die "$!\n";
print FH $blob;
close FH;