Help for this page

Select Code to Download

Select or download this

my $header = "\n\n======= system =======\n";
...
...
  my $system = shift;
  $header =~ s/system/$system/;
...