images/napali.gifNapali.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;