package mypackage;
sub my_lovely_autoload_for_main {
  # bla bla bla
  print STDERR "[@_]\n";
}
*::main::AUTOLOAD = \&::mypackage::my_lovely_autoload_for_main;

package main;
fjkre('wdw');