#script1.prl

use diagnostics -verbose;
use FileHandle;

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


exit;