#!c:\perl\bin
sleep(10);
open(TEST,">test2.log");
print TEST "Hello World\n";
close TEST;