#!/usr/bin/perl
# what_did_i_say                   doom@kzsu.stanford.edu
#                                  07 May 2004
   
use warnings;
use strict;
$|=1;
   
my %fried;
   
use Fcntl;   # For O_RDWR, O_CREAT, etc.
use NDBM_File;
   
my $read_write_create =  O_RDWR;
$read_write_create += O_CREAT;

tie(%fried,
     'NDBM_File',
      'fried-hash.dbm',
       $read_write_create,
       0666) 
    or die "$0: tie failed: $!";
   
print "Last time you said: $fried{egg} \n" if defined( $fried{egg} );
$fried{egg} = $ARGV[0];
print "But I'll remember you said: $fried{egg}\n";

untie(%fried);

##</code><code>##

./tie.pl: tie failed: No locks available at ./tie.pl line 15.