use GD;

    my $image = GD::Image->new(1,1);
    my $red = $image->colorAllocate(252,2,252);
    my @rgb = $image->rgb($red);
    my $trans =  $image->colorClosest(@rgb);
    $image->transparent($trans);
    open (PNGOUT , ">space.png") || die $!;
    binmode STDOUT;
    print PNGOUT $image->png;
    close PNGOUT;