my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
my $txtfileout = sprintf "permrestore%s_%02d_%02d_%04d", $startdir, $mday, $mon, $year;