#!/usr/bin/perl
use warnings;
use strict;
use Employee3;

my  $dogbert  =  Employee->new  (
    surname     =>  "Dogbert",
    employer   =>  "PHB",
    #salary      =>  "1000 PLN",
    #address    =>  "Pacanw 23",
    #forename =>  "dogbert",
    #phone_no =>  "77289",
    #occupation=>  "Przepracowany"
);

print  $dogbert->occupation,"\n";
print  $dogbert->address,"\n";
print  $dogbert->forename,"\n";
print  $dogbert->phone_no,"\n\n";

$dogbert  ->  occupation("le opacany");
print  $dogbert->occupation,"\n";
$dogbert  ->  address("Ulica Sezamkowa 31");
print  $dogbert->address,"\n";
$dogbert  ->  forename("Byk");
print  $dogbert->forename,"\n";
$dogbert  ->  phone_no("23433");
print  $dogbert->phone_no,"\n";