use strict;
use warnings;

package Package1;
use Data::Dumper;

sub some_other_method {
    print Dumper @_;
}

package Package2;
our @ISA = 'Package1';

sub some_other_method {
    die "Shouldn't be called!";
}

sub quick_method {
    return shift->SUPER::some_other_method(@_);
}

sub new {
    bless {}, shift;
}

Package2->new->quick_method( 1, 2, 3 );

##</code><code>##

$VAR1 = bless( {}, 'Package2' );
$VAR2 = 1;
$VAR3 = 2;
$VAR4 = 3;