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

my $bot = 'foo';

# This will warn
my $foo = int $bot;

# This will not
{
    no warnings 'numeric';
    my $bar = int $bot;
}