sub careful {
    my( $string, $number ) = @_;
    {
        use warnings ':caller';
        $string = "$string";
        $number = 0+$number;
    }
    ...
}