Select Code to Download

#!/usr/bin/perl -w

...
  sleep(1);
  print "Done with execute\n";
}

Entering execute
Created TestObject
...
Done with execute
DESTROY
Execute completed