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