my $archive= 'text.rar';
my $directory = 'photos';
my $rar = Archive::Rar->new( -archive => $archive );
$rar->Extract(-to => $directory);