#!/usr/bin/perl
use strict;
use warnings;

use Scalar::Util qw(looks_like_number);

sub looks_like_number($) {
    1;
}