#!/usr/bin/perl use CGI qw/:standard/; import_names('f'); print header(); use AnyDBM_File; use Fcntl; print < DB Spiller
DB Filename:
END_HTML if(defined($f::action)) { tie %db, "AnyDBM_File", "$f::data", O_RDWR, 0644; foreach $key (keys(%db)) { print "$key => $db{$key}
"; } } print < END_HTML