#!/usr/bin/perl 

`echo "<html><body>">all.html`;

@files = <*>;
foreach $file (@files) 
{
  `echo "<img src=\"$file\"> ">>all.html`;
}

`echo "</body><html>">>all.html`;
