#!/usr/local/bin/perl #$f = open("test1.db", O_RDONLY|O_LARGEFILE); sysopen(HANDLE, "test1.db", O_RDONLY); while (<HANDLE>) { print $_; }