#!/usr/bin/perl -w
use DB_File;
tie @a,'DB_File','a',O_RDONLY|O_CREAT,0600,$DB_RECNO or print "could not open a: $!\n";
$a[0]='b';
untie @a;