#!/usr/bin/perl --
BEGIN {
    package Fake;
    $INC{'Fake.pm'}=__FILE__;
    use Import::Into;
    sub import {
        my $target = caller;
        'strict'->import::into($target);
        'warnings'->import::into($target);
        'warnings'->unimport::out_of($target, 'uninitialized');
    }
}

package Snake;
use Fake;
my $f ;
print "f is not init but no warning $f \n";
$f = 'A';
print "f is not a number @{[  0 +  $f ]}\n";


__END__