Select Code to Download

#! perl -slw
use strict;
...
junk
^Z
From tid:5 got { A => 1, B => 2, C => 3 }