#!/usr/bin/perl # # make_index.pl M.Takimoto 2000/03/20 @n = <*.jpg>; $n = @n; $ncol = 4; print << '__END__';