############  SCAN DIRECTORY SUBROUTRINE ####################
{
    my @paths;
    sub dir_listing {
        my ($root) = @_;
        $root .= '/' unless $root =~ /\/$/;
        for my $f (glob "$root*"){
            push @{$paths}, $f if $f =~ m/\.rar$/;
            dir_listing($f) if -d $f;
        }
        return $paths;
    }
}