my $url = $uri->as_string;
my $queue = Thread::Queue->new();
my $dir_name = eval qq("$options{name}") or die $@;
- mkdir("$options{dir}/$dir_name") or die "Unable to make directory $options{dir}/$dir_name $!";
+ if (not -d "$options{dir}/$dir_name") {
+ mkdir("$options{dir}/$dir_name") or die "Unable to make directory $options{dir}/$dir_name $!";
+ }
my $wget_thread = threads->new(\&get_url,"$options{dir}/$dir_name",$queue);
push @threads,$wget_thread;