Select Code to Download

#!/usr/bin/perl -w
use strict;
...

$window->show_all();
Gtk2->main;

#!/usr/bin/perl
use warnings;
...
print GD $gd->png;
close GD;