my %info = (
  ' script'     => "$0",
  ' executable' => "$^X $]",
  ' hostOS'     => "$^O",
  ' starttime'  => "$^T",
);
for (keys %info) {
  print $_ $info{$key}, "\n";
}