Something

oef oproepen
------------
use Artikel;

$art = Artikel::new('art',15,45);
#$art->ask;
$art->show;



package aanmaken
----------------
package Artikel;
use strict;
sub new
{
	my ($pkg, $naam, $prijs, $btw)=@_;
	our $rartikel = {"naam", $naam, "prijs", $prijs, "btwcode", $btw};
	bless $rartikel, $pkg;
	return $rartikel;
}
sub naam
{
	my $ref = shift;
	@_ ? $ref->{"naam"} = shift : $ref->{"naam"};
}
sub prijs
{
	my $ref = shift;
	@_ ? $ref->{"prijs"} = shift : $ref->{"prijs"};
}
sub btwcode
{
	my $ref = shift;
	@_ ? $ref->{"btwcode"} = shift : $ref->{"btwcode"};
}
sub ask
{
	my $self = shift;
	
	print "Naam artikel: ";
	my $naam = <STDIN>;
	chop $naam;
	print "Prijs artikel: ";
	my $prijs = <STDIN>;
	chop $prijs;
	print "BTW code artikel: ";
	my $btw = <STDIN>;
	chop $btw;

        $self->naam($naam);
        $self->prijs($prijs);
        $self->btw($btw);

}
sub show
{
	print "Volgende gegevens zijn ingegegeven:\n";
	print "-----------------------------------\n";
	print "\tArtikel : $Artikel::rartikel->{naam}\n";
	print "\tPrijs   : $Artikel::rartikel->{prijs}\n";
	print "\tBTWcode : $Artikel::rartikel->{btw}\n";
}
1;