Select Code to Download

#!/usr/bin/perl -w

...
my %db;
tie (%db,'DB_File',"mydb.db",O_RDONLY) or die "tie : $!";
untie %db;

main::(t.pl:9): tie (%db,'DB_File',"movies.db",O_RDONLY) or die "tie :
+ $!";
  DB<1> s
...
  DB<1> s
tie :  at t.pl line 9, <IN> line 14.
Debugged program terminated.  Use q to quit or R to restart,