Select Code to Download

open SELF "< $0" or die ...;
flock SELF, LOCK_EX | LOCK_NB or exit;

flock DATA, LOCK_EX | LOCK_NB or exit;
...
__DATA__

#!/usr/bin/env perl

...
# Other use statements...

# code...

#!/usr/bin/env perl

...

# Do not remove double-underscore DATA tag. It is required for highlan
+der process assertion.
__DATA__