Select Code to Download

#!/usr/bin/env perl
use strict;
...
$it6->(); $it6->(); $it6->();
# prints "a"
print $it6->()->() . "\n";

Valid append 1
$VAR1 = 1;
...

Invalid append 4
a