#!/usr/bin/perl my $avatar = qq(

); print qq(\n); for my $gender (0, 1) { print qq(\n); for my $race (1..8, 9..11) { print qq(\n); for my $class (1..9, 11) { print qq(\n); } print qq(\n); } print qq(

\n); for my $ext ("-default", "", "-70", "-80") { printf $avatar, $ext, $gender, $race, $class; } print qq(

\n); } print qq(\n);