in reply to Re^2: split a file to several smaller file
in thread split a file to several smaller file

Did you actually open a file and assign the handle to $fh_in?

open(my $fh_in, '<', $qualified_name) or die("Unable to open file \"$qualified_name\" to split: $!\n");