if(-f $source_path)
#...
my $rar = Archive::Rar->new(-archive => "../../..".qq("$source_path");