Napali.ch /perl
#!/usr/bin/perl -w use strict; use warnings; # Closures { my $name = "Urs"; sub print_name { print "$name\n" } } print_name; my $name = "foobar"; print_name;