Select Code to Download

#!/usr/bin/perl
use strict;
...
  print IMG $oGdBar->plot(NoText=>1, Height => 40)->png;
  close(IMG);
}

#!/usr/bin/perl
use strict;
...
      # write to disk
    }
}