package Objects;

sub New
{
    bless {},shift;
}

1;

##</code><code>##

use strict;
use warnings;
use Objects;
use Data::Dumper;
func();

sub func {
    $main::Objects = New Objects;
    print "This is in \"func\" function.\n";
}