$rar_check=File::Spec->join($verzeichnis, '*.rar');
							
if(bsd_glob($rar_check))
{  for $source_path (bsd_glob($rar_check))  
	{
		if(-f $source_path)
		{   
			(undef,undef,$file) = File::Spec->splitpath( $source_path );
			my $rar = Archive::Rar->new(-archive => bsd_glob($source_path) );
			$rar->Extract( -files => $finaldir, -quiet => 1 );   
			print "Das file ".$source_path." wird nach ".$finaldir." entpackt.\n";
		}
	}
						  						
}