#! perl -slw
use strict;
use DB_File;

tie %h, 'DB_File', 'test.db';

open IN, '<', 'test.dat' or warn $!;

print scalar localtime; 
$h{ $_ } .= ' ' . $. while $_ = <IN>; 
print scalar localtime;
exit;
__END__
Thu Nov 13 20:55:30 2003
Thu Nov 13 21:23:31 2003