#!/usr/bin/perl

open(DAT,"a.txt") ||die ("could not open file Users10!!!");
@raw=<DAT>;
close(DAT);

$index = 1;
foreach $val (@raw)
	{
	print $val;
	chomp($val);
	open(DAT,">>html.txt") || die("Can't open file file.cgi !!!\n");
	print DAT "<div class=img><a target=_blank href=$val><img src=images/$val width=160 height=120></a></div>\n";
	

	close(DAT);
	$index++;
	}
