Select Code to Download

#!/usr/bin/perl
use strict;
...
 open(IMG, '>iostat.gif') or die $!;
 binmode IMG;
 print IMG $gd->gif;