Select Code to Download

use strict;
use warnings;
...
};

Dump($hash)->Names('$hash')->Out;

use strict;
use warnings;
...
print "var1 = $var1\n";
$hash->{subs}[1]->();
print "var1 = $var1\n";