#!/usr/local/bin/perl -w

use strict;

BEGIN {
my $static = 0;

sub inc {
  ++$static;
}

sub dec {
  --$static;
}

}

$, = $\ = "\n";
print inc(), inc(), dec(), dec();