#!/usr/local/bin/perl -w
# use-strict.pl -- Schutz vor dem Vertippen durch use strict.
#            Dieses Skript laesst sich nicht starten!

use strict;                    # Variablendeklarationen erzwingen.

my $variable = "hello";        # So weit, so gut!
print $variable;               # Auch okay.
$variable = "new value";       # Immer noch okay.
print $variable;               # Stimmt ja noch.

$varriable = "bye";            # FALSCH! Nicht deklariert!

print "Still alive\n";         # Kommen wir hier an? (Nein!)