#!/usr/local/bin/perl -w
# quicksect.pl -- Sequenz von Anweisungen, Bloecke.

# Eine einfache Sequenz
$var = 4711;
print "Global Variable: $var\n";          # Gibt 4711 aus.

# Ein Block von Anweisungen
{
    my $var = 1123;                       # Lokale Variable.
    print "Local value: $var\n";          # Gibt 1123 aus.
}

print "Global value again: $var\n";       # Gibt 4711 aus.