#!/usr/bin/perl
use strict;
use warnings;
BEGIN{
    *CORE::GLOBAL::atan2 = sub{
        "atanatan";
    };
}
print atan2(1,1), "\n";
print CORE::atan2(1,1), "\n";