Select Code to Download

#!/usr/bin/perl
use strict;
...
print "Write Types:\n";
print "   ",join(", ",@write_types),"\n";
exit(0);

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