Help for this page

Select Code to Download


  1. or download this
    perl -le "open(my $x, \"">&STDOUT"\");"
perl -le "open(my $x, "\">&STDOUT\"");"
  2. or download this
    C:\_32>perl -Mstrict -MDevel::Peek -le "my $arg = \"STDOUT\"; Dump $ar
+g;"

...
  CUR = 6
  LEN = 10
  COW_REFCNT = 1
  3. or download this
    C:\_32>perl -Mstrict -MDevel::Peek -le "my $arg = \">&STDOUT\"; Dump $
+arg;"
>& was unexpected at this time.