Mine

package Artikel;
sub new
{
	my ($pkg, $naam, $prijs, $btw)=@_;
	my $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: ";
	$naam = <STDIN>;
	chop $naam;
	print "Prijs artikel: ";
	$prijs = <STDIN>;
	chop $prijs;
	print "BTW code artikel: ";
	$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 : $rartikel->{naam}\n";
	print "\tPrijs   : $rartikel->{prijs}\n";
	print "\tBTWcode : $rartikel->{$btw}\n";
}
1;