#!/usr/bin/perl -l
use strict;
use warnings;

{
  package Zaehler;
  use Tie::Scalar;
  use vars '@ISA';
  push @ISA, 'Tie::StdScalar';

  sub FETCH {
    my $self = shift;
    return sprintf('%03d', $$self);
  }
}

my $zaehler;
tie $zaehler, 'Zaehler', 8;

print $zaehler;
$zaehler ++;
print $zaehler;