- or download this
else
{
...
sleep(3); #sleep 3 seconds before trying again
print( scalar localtime() . "Finished sleep\n" );
}
- or download this
print( scalar localtime() . "About to connect\n" );
$connected = connect(SOCK, $paddr);
print( scalar localtime() . "Finished connect\n" );
- or download this
select( ( select(STDOUT), $| = 1 )[0] );
select( ( select(STDERR), $| = 1 )[0] );