#!/usr/bin/env perl
$i=0;
while(<>){
    print;
    $i++;
    $j=$i+1;
    open(OUT,">$i.html");
    chomp;
    $pic = $_;
    print OUT "<a href=\"$j.html\">NEXT</a>\n";
    print OUT "<a href=\"$j.html\"><img src=\"small/$pic\"></a>\n";
    close(OUT);
}