Select Code to Download

#!/usr/bin/perl
# what_did_i_say                   doom@kzsu.stanford.edu
#                                  07 May 2004
...
print "But I'll remember you said: $fried{egg}\n";

untie(%fried);

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