Select Code to Download

use threads;
...
  print "Called: $_[0]\n";
}

use threads;

...
sub sys_call(){
  print "Called: $_[0]\n";
}