use diagConfig; #$sourcepath, %files, trimwhitespace, cleanupWincuri, $WINCURI, $PLINK, $CLI open my $LOGFH ,">", $files{log}{file}; #disable write buffer my $stdout = select($LOGFH); $| = 1; select($stdout); use VolumeManager (\$LOGFH, \$writelog); use Initiator (\$LOGFH, \$writelog); my $vm = VolumeManager->new(); my $init = Initiator->new(); #### use diagConfig; #$sourcepath, %files, trimwhitespace, cleanupWincuri, $WINCURI, $PLINK, $CLI open my $LOGFH ,">", $files{log}{file}; #disable write buffer my $stdout = select($LOGFH); $| = 1; select($stdout); require VolumeManager; VolumeManager->import(\$LOGFH, \$writelog); my $vm = VolumeManager->new(); require Initiator; Initiator->import(\$LOGFH, \$writelog); my $init = Initiator->new();