#!/usr/bin/perl

use warnings;
use strict;

package Wuerfel;

    sub new {
        my $classname = shift;
        my $self = {augen => undef}; 
        return bless($self, $classname);
    }

    sub anschubsen {
        my $self = shift; 
        $self->{augen} = int(rand(20)) + 1;
    }

package main;

my $drachentoeter = Wuerfel->new();
$drachentoeter->anschubsen();
print "$drachentoeter->{augen}\n";