opendir THEDIR, "$basepath$ARGV[0]" || die "Unable to open directory: $!";
	@allfiles = grep /^2/,readdir THEDIR;
	closedir THEDIR;
	$numfiles = @allfiles;
	$numfiles = ($numfiles - 2);

foreach $file (sort { ($b) <=> ($a) } @allfiles) {
	

if (-T "$basepath$ARGV[0]/$file") {
$passflag = 0;
open THEFILE, "$basepath$ARGV[0]/$file";
($ref, $cust, $email, $phone, $mobile, $posted) = <DATAFILE>;
close DATAFILE;
chomp($ref, $cust, $email, $phone, $mobile, $posted);
$file =~ s/\.DAT//;
print"<TR><TD>$ref</td><TD>$cust</TD><TD>$email</TD><TD>$phone</TD><TD>$posted</TD></TR>\n " unless ($passflag);
print "</TABLE>\n";
}}}