my $header = "\r\n\r\n======= system =======\r\n";

##</code><code>##

   $ssh->print_log_file($header);

##</code><code>##

   my $my_header = $header;
   $my_header =~ s/system/$system/;
   $ssh->print_log_file($my_header);