PERL - overload class implement

class.pl

sub new
{
    my $class = shift;
    my %params = @_;
    #
    #some code here
    #
    my $self = $class->SUPER::new(%params);
    $class = ref $class if ref $class;
    bless $self, $class;
    return $self;
}