Select Code to Download

#! /usr/bin/perl
use strict;
...
    }                          #Upload Teil des Scripts
close DAT;
}

#! /usr/bin/perl
#use strict;
...
print "Content-type: image/png\n\n";
binmode STDOUT;
print $graphimage->png;