Adding my code for the demo on Perl Closures