use strict;

package main;

sub AUTOLOAD {
  return 'old-main-autoload';
}

package mypackage;

# let's capture that ::AUTOLOAD
my $aasub = *{$::{AUTOLOAD}}{CODE};

# now let's, as we decided earlier, have it overloaded
*::AUTOLOAD = sub {
  # here how we overload it:
  print "do first\n";
  #call old one and print that returned value inside '[]'
  print '[', $aasub->(), "]\n";
  print "do last\n";
};

package main; # again

flurfish_sub();

##</code><code>##

do first
[old-main-autoload]
do last