use strict;
        my $finder = $File::Find::name; #not sure what to do here.
        my $newfile = "/perl/bin/";

        opendir(DIR,$newfile);
        my @files = readdir(DIR);
        close(DIR);

        chdir ($newfile)
            or die "Could not change to $newfile directory\n$!\n";
        for(@files) {
		
            my $filename = $_;
	    next if ($_ != m/^\.+$/);
            my $modtime     = localtime ( (stat($filename))[9] ); 

            print "File = $filename\n";
            print "Mod date = $modtime\n";
        }