#!/usr/bin/perl
use strict;
use warnings;
$| = 1;   # set print buffering to not buffer
use Imager;
my @read_types = Imager->read_types;
my @write_types = Imager->write_types;
print "Read Types:\n";
print "   ",join(", ",@read_types),"\n";
print "Write Types:\n";
print "   ",join(", ",@write_types),"\n";
exit(0);

##</code><code>##

Read Types:
   sgi, bmp, ico, pnm, tga, raw
Write Types:
   sgi, bmp, ico, pnm, tga, raw