Select Code to Download

#! perl -slw
use strict;
...
my $devHandle = createFile( '//./C:', 'wke' );
$devHandle == -1 and die $^E;
FlushFileBuffers( $devHandle ) or die $^E;