Select Code to Download

Earth    Host1
Jupiter    Host2
Venus    Host3
Mars    Host4

use Modern::Perl;
use File::Slurp qw/read_file write_file/;
...

say $text;
#write_file( $logFile, $text );