What is happening here

From: Wc -Sx- Jones (sx_at_insecurity.org)
Date: 03/30/04 

Date: Tue, 30 Mar 2004 00:01:40 -0500
To: "'beginners@perl.org'" <beginners@perl.org>

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-