Select Code to Download

#!/usr/bin/perl
#In this script the command system("date"); fails after 2 large arrays
+ have been setup.
...
printf "\n\$?=0x%x \$!=%s\n", $?, $!;
print "\n#End\n";
exit;

./xpt5.pl
             total       used       free     shared    buffers     cac
+hed
...
$?=0x0 $!=Cannot allocate memory

#End

             total       used       free     shared    buffers     cac
+hed
Mem:          3948       3927         21          0         42        
+146
-/+ buffers/cache:       3738        210
Swap:         2392         36       2355

#!/usr/bin/perl
#Run this file in the background ./daemon.pl&
...
    unlink ("ready");
  }
}

#!/usr/bin/perl
#First start the daemon in the background ./daemon.pl&
...
while ( -e "ready" ) {sleep 2;}
print "\n#End\n";
exit;

./daemon.pl&
[3] 5270
...

#End