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

	while ( <INFILE> )
	{
		$file = $_;
		chomp ( $file );
		$file_list{$file} = "1";
	}

##</code><code>##

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