BEGIN {
 no strict 'refs';
 *{'CORE::GLOBAL::-f'} = sub {
  print  "-f called";
 }
}