#!/usr/bin/perl

# Test 4

$path = "/var/www/html/bprentice/Test/Test4/Test4.dat";

$filename = ">" . $path;
$| = 1;
open FILE, $filename;
flock(FILE, 2);
print FILE "Hi Brian\n";
close FILE;

exit(0);
