use File::Sync qw(fsync sync);
open(FILE ,">$file") or die "err: $!";
binmode FILE;
print FILE $stored_as_file;
fsync(\*FILE) or die "fsync: $!";
close(FILE);
sync();