Select Code to Download

$ perl -MDevel::Peek -e'Dump $_ for 1'
SV = IV(0x816a408) at 0x814f6f0
...
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 1

$ perl -le'for (1..2) { map { print($_++) } 1..2 }'
1
...
2
1
2