my $archive= 'text-test.rar';
my $destinationDirectory = 'C:/tmp';
my $rar = Archive::Rar->new( -archive => $archive );

foreach my $member ($rar->List( ))
{
$member  = $rar->Extract( to => '$destinationDirectory');