#!/usr/bin/perl -w

use Fcntl;

sysopen (OUT,"/root/bin/KnowledgeBase/Update/update.txt", O_WRONLY|O_CREAT, 0600) or die "can not create $!";

printf OUT 'HI';
printf OUT "\n";

close OUT;