#script1.pl

use diagnostics -verbose;
use FileHandle;

FileHandle::autoflush STDOUT 1;
print "In script 1\n";
unlink ("gg");
#system ("script2.pl > gg");
system ("perl script2.pl > gg");
FileHandle::autoflush STDOUT 1;