It displayed nothing.Here is my code,

tie( %hash, 'DB_File::Lock', $file, O_RDONLY, 0666, $DB_TREE, 'read' )
+ || die ( "db file open error ..:$!:");
[download]

Here is my output.

db file open error ..:: at ./db_read.pl line 12
[download]

Regards,
S.Venni Rajan.
"A Flair For Excellence."
                -- BK Systems.