Corrected week 6 basic OOP example

main.pl

#!/usr/bin/env perl

use strict;
use warnings;

use FindBin qw($RealBin);
use lib $RealBin;
use trivial;

my $obj1 = new trivial;

my $obj2 = trivial->new;

$obj1->printmsg;

printmsg $obj2;

trivial.pm

package trivial;

use strict;

our $VERSION = 1.00;

sub new {
	bless {};
}

sub printmsg {
	print "I'm trivial!\n";
}

1;