请帮忙看看这个图片为什么显示不出来

#!/usr/local/bin/perl

        use GD;
                use strict;
                use warnings;
                print "Content-type: image/png\n\n";
                print "Content-Type: text/html\n\n\n";
                my $num='187986992,187987136,187987618,187987755,187987986,187988075,187988294,187988373,187989616,187989882,187989891,187989918';
                my @num=split /,/,$num;
                my $film;
                foreach $film(@num){
                        my $film2=$film-$num[0];
                        #print "$film2\n";
                }
               
                #取外显子
                my $i;
                my %hash;
                for($i=0;$i<@num-1;$i++){
                        $hash{$num[$i]-$num[0]}=$num[$i+1]-$num[0];
                        $i++;
                }

               
                foreach(sort {$hash{$a}<=>$hash{$b}} keys %hash){
                        #print "$_=>$hash{$_}\n";
                }
               
                #取内含子
                my %hash2;
                for($i=1;$i<@num-1;$i++){
                        $hash2{$num[$i]-$num[0]}=$num[$i+1]-$num[0];
                        $i++;
                }

                foreach(sort {$hash2{$a}<=>$hash2{$b}} keys %hash2){
                        #print "$_=>$hash2{$_}\n";
                }

        # create a new image
                my $im = new GD::Image(500,200);

        # allocate some colors
        my $white = $im->colorAllocate(255,255,255);
        my $black = $im->colorAllocate(0,0,0);      
        my $red = $im->colorAllocate(255,0,0);      
        my $blue = $im->colorAllocate(0,0,255);
               
                # make the background transparent and interlaced
        $im->transparent($white);
        $im->interlaced('true');

                my $t1=0;
                my $t2=0;
               
                while(($t1,$t2)=each %hash){
                        # Put a black frame around the picture
                        $im->rectangle($t1,0,$t2,20,$black);
                        $im->fill($t1+1,10,$black);

                }
        # make sure we are writing to a binary stream
        binmode STDOUT;

        # Convert the image to PNG and print it on standard output
        print $im->png;

        # make sure we are writing to a binary stream
        binmode STDOUT;

        # Convert the image to PNG and print it on standard output
        print $im->png;

显示错误
CGI Error
The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are:

你还真强
print "Content-type: image/png\n\n";
print "Content-Type: text/html\n\n\n";
你到底是输入网页呢还是输入图片呢？