What is happening here

[WC -Sx- Jones]

What is happening here -

#! /usr/bin/perl
use strict;
use warnings;
my $count;

while(1) {
  (++$count) ? $count += $count-- : $count += $count++;
  print "$count\n"; exit if $count > 60_000;
  sleep 1;
}
__END__
-Sx-
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>