#!/usr/local/bin/perl -w
use strict;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser carpout);
$| = 1;

print header(-type => 'text/html'), start_html();


my $path = '/var/www/cgi-bin/samples';

print "hi";

undef $/;
opendir DIR, $path or die "cant open dir $!";
my @parts = sort(readdir(DIR));

foreach my $x (@parts)
  {
    open FILE, $path."/".$x or die "cant open $x $!";

    my $data = '';

    $data = <FILE>;

    print $data;
    close FILE;
    system("date");
    sleep(5);
  }