open(FILE, '<', "$confpath/mksysbmachinelist.conf") or die $!;
while(<FILE>){
...

##</code><code>##

open( my $fh, '<', "$confpath/mksysbmachinelist.conf" ) or die $!;
while( my $line = <$fh> ) {
...