#!/usr/bin/perl
use Number;

Number.pm did not return a true value at D:\home\netsh100633\html\cgi-bin\number.pl line 2.
BEGIN failed--compilation aborted at D:\home\netsh100633\html\cgi-bin\number.pl line 2.

Prozess beendet mit Exit-Code 13

package Number;

use strict;
use warnings;
use IO::File;
use Fcntl ':flock'; 

sub new{
        my $class = shift;
        my $self = bless{}, $class;
        return eval{
                my $file = $class.".pm";
                $self->{POS} = tell DATA;
                $self->{BUF} = '';
                $self->{FH} = new IO::File;
                $self->{FH}->open($INC{$file}, O_RDWR) or die "IO-Error: $!";
                flock $self->{FH}, LOCK_EX or warn "Your system does not support flock";
                $self->{FH}->seek($self->{POS}, 0);     
                read $self->{FH}, $self->{BUF}, 32;
                $self->{NR} = unpack "A32", $self->{BUF};
                $self;
        };
}

sub nr{
        my $self = shift;
        return $self->{NR}++;
}

sub DESTROY{
        my $self = shift;
        $self->{FH}->seek($self->{POS}, 0);
        $self->{FH}->print(pack "A32", $self->{NR});
}

1;
__DATA__
2056                             

#!/usr/bin/perl

use strict;
use warnings;
use Number;


my $no = new Number;
sleep 100;