#!/usr/bin/perl 
 
use strict; 
 
srand(time); 
 
my $tempdir; 
for (1..10){ 
    $tempdir = '/tmp/Script_' . int(rand(1_000_000_000)); 
    last if mkdir $tempdir, 0700; 
    $tempdir = ''; 
} 
if($tempdir){ 
    print "$tempdir angelegt\n"; 
} 
else{ 
    print "Fehler\n" 
}