#output:
#
#C:\Documents and Settings\jesus_\My Documents\ehb\Perl\oefn\julien>main.pl
#Volgende gegevens zijn ingegegeven:
#-----------------------------------
#        Artikel : art
#        Prijs   : 15
#        BTWcode : 45
#Naam artikel: nuuf artikel
#Prijs artikel: 99
#BTW code artikel: 1234
#Volgende gegevens zijn ingegegeven:
#-----------------------------------
#        Artikel : nuuf artikel
#        Prijs   : 99
#        BTWcode : 1234

#main.pl:

use Artikel;

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

#Artikel.pm:

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->btwcode($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->{btwcode}\n";
}
1;