#!/usr/bin/perl

use strict;
use warnings;

my $var = My::Number->new;

$var->increment_me for 1..10;
$var->decrement_me for 1..5;
$var->print_me;


package My::Number;
sub new {
	my $class = shift;
	my $self  = { var => 0};
	return bless $self, $class;
}

sub increment_me {
	my $self = shift;
	$self->{var}++;
}

sub decrement_me {
	my $self = shift;
	$self->{var}--;
}

sub print_me {
	my $self = shift;
	print $self->{var},"\n";
}