Select Code to Download

#!/usr/bin/perl -w

...
    print "Usage: $0 tail|nontail\n";
    exit(-1);
}

[334]: ./tail.pl tail
abstract  5843  0.0  0.2  2324 1052 pts/0    S    01:00   0:00 tail
...
abstract  5854 85.7  6.3 34084 32868 pts/0   S    01:00   0:06 nontail
abstract  5854 85.7  7.1 38056 36836 pts/0   S    01:00   0:07 nontail
abstract  5854 85.9  7.9 42024 40808 pts/0   S    01:00   0:08 nontail

[340]: time ./tail.pl tail > /dev/null
real    0m6.079s
...
real    0m10.423s
user    0m9.530s
sys    0m0.890s

SCM_BRANCH:
  if($br eq 'SCM_F1'){
...
  ...
  $br = $rp;
  goto SCM_BRANCH;