use strict;
use warnings;
use Archive::Rar;

$archive = "test.rar";

$unrar = Archive::Rar->new(archive => "$archive");
$unrar->Extract ();