Try this:

#!/usr/bin/perl

use strict;
use warnings;
use Archive::Zip;
use Aspect;

my $pointcut = Aspect::Pointcut::Call->new(def());

before {
    print STDERR "Called my function " . $_->sub_name . "\n";
} call qr/^ main::def()\w+ $/;

sub def { print "abc\n"; }
[download]