my $rar_check=File::Spec->join($verzeichnis, '*.rar');

if(bsd_glob($rar_check))
{
  for $source_path (bsd_glob($rar_check))  
  {
    if(-f $source_path)
    {   
      print "Das file ".$source_path." wird nach ".$finaldir entpackt.";
      my $rar = Archive::Rar->new(-archive => "../../..".qq("$source_path");
      my $res=$rar->Extract(-files=>qq("$finaldir"), -quiet => 1 );
      die "Error $res in extracting from $archive\n" if ( $res );
entpackt.\n";
    }
  }
}