# create such a thing
BEGIN { ${^CMDLINE} = "$0 @ARGV" }

##</code><code>##

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