#!/usr/bin/perl -w

use strict;
use IO::AtomicFile;

my $filename = "/tmp/atomicfile_test.txt";

my $ATOMICFH = IO::AtomicFile->open($filename, "w") or die "Error opening: " . $filename . ' ' . $!;
print $ATOMICFH "Test" or die "Error writing to: " . $filename . ' ' . $!;
$ATOMICFH->close or die "Error closing: " . $filename . ' ' . $!;