Select Code to Download

"my" variable $k masks earlier declaration in same scope at a.pl line 
+6.

use strict;

...
    return defined $k ? $k : 'undef';
}