#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use SDBM_File;
use Fcntl;                    # Definition von O_RDWR, O_CREAT usw.

$filename = "myhash";

                              # Persistenten Hash öffnen
tie(%myhash, SDBM_File, $filename, O_RDWR|O_CREAT, 0644) || 
     die "Cannot open $filename";

                              # Initialisierung, falls noch
			      # undefiniert
$myhash{"key"} = 0 unless defined($myhash{"key"});

                              # Wert ausgeben
print "myhash{key} = $myhash{key}\n";

                              
$myhash{"key"}++;             # Neuen Wert setzen

untie %myhash;                # Hash wieder lösen