My attempt at producing dubstep

gistfile1.txt

mhorsfall@Fireforge:~$ cat wobble.pm
package wobble;

use strict;
use warnings;

sub import {
        my ($self, $into) = @_;

        my $method = "$into\::drop";

        no strict 'refs';
        *$method = sub { print "Wub wub wub\n"; }
}

1;
__END__

mhorsfall@Fireforge:~$ perl -e 'use wobble base; base->drop'
Wub wub wub