Help for this page

Select Code to Download

Select or download this

    open ( INFILE, "<", "$inputfile" ) || die( "Cannot read list file 
+$inputfile" );

...
        chomp ( $file );
        $file_list{$file} = "1";
    }

Select or download this

        if(length($file) <= (1 * 1024 * 1024))
        {
            $file_list{$file} = "1";
        }