#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;

##</code><code>##

#script 2

use diagnostics -verbose;
use FileHandle;

FileHandle::autoflush STDOUT 1;
print "In script 2\n";
system ("script3.prl");
FileHandle::autoflush STDOUT 1;

exit;

##</code><code>##

#script3 

use diagnostics -verbose;
use FileHandle;

FileHandle::autoflush STDOUT 1;
print "In script 3\n";
FileHandle::autoflush STDOUT 1;

exit;