BEGIN {
  ${^CMDLINE} = join ' ',
      $0,
      map "'\Q$_\E'",
      @ARGV
}