sub list{ 

my $path=shift;
my $comp=shift;
if (! -e $path){die "Error : $path $!\n";}
opendir(DIR,$path) or die "Error : $path $!\n";
return sort
 map {  my ($d,$m,$y) = (localtime( (stat "$path/$_")[9] ) )[3..5]; 
		$m+=1; $y+=1900;
		$m=($m<10)?"0$m":$m;
		$d=($d<10)?"0$d":$d;
		my $date = "$d/$m/$y";
		if($date eq $comp){"$_\n"};
	} grep(!/^(\.+?)$/,readdir(DIR));
}