Select Code to Download

use IO::Handle;

$F = new IO::Handle;
$F->autoflush(1);

$ cat -n openself
 1  #!/usr/local/bin/perl -w
...
25    }
26    exit;
27  }