use IO::Handle;
open my $f, '/tmp' or die $!;
$f->sync or die "fsync: $!\n";

##</code><code>##

use IO::Handle;
my $f = IO::Handle->new;
opendir $f, '/tmp' or die $!;
$f->sync or die "fsync: $!\n";

##</code><code>##

#include <unistd.h>
#include <stdlib.h>
#include <stdio.h>
#include <fcntl.h>
#include <sys/types.h>
#include <sys/stat.h>

int main (void) {
    int fd = open("/tmp", 0);
    if (fd < 0) {
        perror("open: /tmp");
        exit(1);
    }
    if (fsync(fd) < 0) {
        perror("fsync: /tmp");
        exit(1);
    }
    return 0;
}