Select Code to Download

sub careful {
    my( $string, $number ) = @_;
...
    }
    ...
}

use warnings;
    ...
    sloppy( "$string", 0+$number );