open my $in, '<', "$file" or die $!;    
    {
      local $/ = \$maxsize;

      while ( my $record = <$in> ) {	  
	  
	  # -s returns file size 
	  
	  next if -s $record > $new_max;
	  
	  }