#!/usr/bin/perl
use strict;
use warnings;
use Benchmark qw/cmpthese/;
use Fcntl;

cmpthese (-5,
    {
        open    => sub {
            open FILE, ">", "open_vs_sysopen.tst" or die $!;
            close FILE;
        },
        sysopen => sub {
            sysopen FILE, "open_vs_sysopen.tst", O_CREAT|O_WRONLY or die $!;
            close FILE;
        },
    }
);
__END__
           Rate    open sysopen
open    58073/s      --    -29%
sysopen 81322/s     40%      --

$ perl -v

This is perl, v5.8.8 built for i486-linux-gnu-thread-multi