Select Code to Download

use strict;
use Data::Dumper;
...

foo(4..6);
print Dumper($underscore, $scissors);