Inheritance test on Perl

main.pl

#!/usr/bin/env perl
use strict;
use warnings;
use lib './';
{
    package Child;
    use strict;
    use warnings;
    use parent qw(Parent); # => error
    # use base qw(Parent); # => works
    1;
}
my $child = Child->new;
# => Can't locate object method "new" via package "Child" at ...

Parent.pm

package Parent;
use strict;
use warnings;

sub new { bless {}, $_[0] }

1;