I will stay all night to find a way to handle with .rar files.

Something like -

    sub scan_dir{
        unless( $_ =~ /\.rar$/ ) {
            return;
        }
        print $_,$/;
    }
[download]

should do it.

J.C.