Unsuccessful stat on filename containing newline at myperl.pl line 193, <$in> chunk 1.
Use of uninitialized value in numeric gt(>) at myperl.pl line 193, <$in> chunk 1.

##</code><code>##


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

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

##</code><code>##

next if -s $record > $new_max;