use strict;
my $mytime=(time);
my ($File,$FileStat,$CallOutDir);