use strict;
use lib '.';
BEGIN{ unshift  @INC, '.';}
use Tk;
print "@INC\n";
.....