#!/usr/bin/perl

use warnings;
use strict;

package Device {

    sub new {
        my $classname = shift;
        my $self = {address => shift,
                    id      => shift,
                    type    => shift};
        return bless($self, $classname);
    }

    sub getType {
        my $self = shift;
        return $self->{type};
    }
}

my $device1 = Device->new("/dev/test", 1, "test-device");
print "\nType of device1 is: \"" . $device1->getType() . "\".\n\n";