gistfile1.pl

#!/usr/bin/env perl

use feature 'say';

package Hoge{
    sub new {
        my $class = shift;
        my $args = ref $_[0] ? $_[0] : +{@_};
        bless $args, $class;
    }
    sub say_package{
        my $self = shift;
	ref $self || $self;
    }
}

package Fuga{
    use base qw/Hoge/;
}

package main;
use strict;

say Fuga->say_package();
say Fuga->new->say_package();