Select Code to Download

use Imager;
print "Has truetype"      if $Imager::formats{tt};
print "Has t1 postscript" if $Imager::formats{t1};
print "Has Win32 fonts"   if $Imager::formats{w32};
print "Has Freetype2"     if $Imager::formats{ft2};

#!/usr/bin/perl -w
use strict;
...
$img->write(file=>"image.png") or die 
      "Cannot write $imgfn: ", $img->errstr;

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