Help for this page
# Strict use strict; ... my $p = new readxpm($xpm)->to_html($out); (-e $out) and print "Created HTML file '$out'\n";
package readxpm; ... perl(1) =cut