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