Select Code to Download

    i++;   /* Increment i */

    { no strict 'refs';
      *{$caller} = &{$something};
    }

    my @list = do {no warnings; qw /foo #bar baz,/};