Select Code to Download

my $img_data;
$img->write(data=>\$img_data,type=>'png')
  or die "Cannot dump image: ", $img->errstr;

--
#!/usr/bin/perl
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}