#!perl
use 5.020;

use Scalar::Util ();

BEGIN {
    *looks_like_number = \&Scalar::Util::looks_like_number;
}

say looks_like_number(42);