warn  $msg =~ m/\n$/ ? $msg : ($msg . "\n");