if !($dir){
mkdir $dir,777 or die "Cant mkdir: $!";
}