Sample perl
#!/usr/local/bin/perl @o = (5, 6, 7, 8, 9, 10, 11, 12); $com = "Comment"; open(OUT, "> index.html"); print OUT<<"EOT"; <HTML> <HEAD><TITLE>$com</TITLE></HEAD> <BODY> <H1><B>$com</B></H1><HR><P> EOT for ($i = 0; $i < @o; $i++){ system("pgv -cc iso$o[$i].dat"); system("rename pgv0000.jpg iso$o[$i].jpg"); print OUT<<"EOT"; <IMG SRC="iso$o[$i].jpg"><BR> Orbital $o[$i]<P> EOT } print OUT<<"EOT"; <HR> <ADDRESS>Copyright and my address</ADDRESS> </BODY> </HTML> EOT close(OUT);