sub makeGIF {
    my $desktop = "C:\\Documents and Settings\\$ENV{LNAME}\\Desktop\\";
    my($blinker);
    $blinker = new Image::Magick;
    $blinker->Read("TempImages\\defective.bmp");
    $blinker->Read("TempImages\\reference.bmp");
    $blinker->Write("$desktop\\blink.gif");
}