#!/usr/local/bin/perl

#$f = open("test1.db", O_RDONLY|O_LARGEFILE);

sysopen(HANDLE, "test1.db", O_RDONLY);

while (<HANDLE>) {
        print $_;
}