-d $directory or die("Not dir: '$directory'");
opendir(DIR, $directory) or die("cant open '$directory', $!");