$testfolder = '.\test'; $testfolder =~ s/\//\\/g; 
	opendir Sdir, $testfolder;
	@files = readdir(Sdir);
	undef @newfiles; 
	foreach $file (@files) 
	{
		$full_pathname = $testfolder . "/" . $file;
		my ($filesize) = (stat $full_pathname)[7]; 
		if ($filesize > 0)
		{       
			$full_pathname = $testfolder . "/" . $file;
			if (-e $full_pathname)
			{
				@newfiles = (@newfiles,$file1);
			}
		}
	}	
	foreach $file1 (@files)
	{
		print "$file1\n";
	}