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