>>276 #!/usr/bin/perl
use DB_File;
use Fcntl;
use strict;
use warnings;
my @file;
my $db = tie @file , DB_File => 'hoge.dat' , O_RDWR | O_CREAT, 0666, $DB_RECNO
or die "can't open hoge.dat: $!$^E\n";
ファイルが存在しなかった場合、作成するようにしないと。（O_CREAT）
詳しくはperldoc -f sysopen
