my $have_GD = 0;
BEGIN {
  eval { require GD };
  unless ($@) {
    GD->import();
    $have_GD = 1;
  }
}