my $fname = "files.txt";

my $dirname = shift;

open (IN, $fname) || die "can't open $fname\n";

while (<IN>) {
    chomp;
    print "<img src = \"http://marinerds.com/pictures/$dirname/$_\" border = \"2\">\n";
}