my @pod = qw(HostCycle Instinet index);
my %ext = ( index => 'pod' );
system "pod2html $_.".($ext{$_}?$ext{$_}:'pm')." > $_.html" foreach @pod;