#!c:\perl\bin
sleep(10);
open(TEST,">test.log");
print TEST "hello world\n";
close TEST;