package tt;

use strict;
use warnings;

sub w {
  my $str = "";
  return substr ($str, 10, 10);
}

1;

##</code><code>##

use strict;
use tt;

print tt::w();

##</code><code>##

use strict;
use tt;

local $SIG{__WARN__} = sub {};
print tt::w();