Select Code to Download

use strict;
use warnings;
...

@lparstat = ('1','2','3');
_ce(\@lparstat);

        open (my $i, "+<", $$name) or warn "Failed to open '$$name': $
+!";   ### FAILS HERE ###