use warnings;
use strict;

print "Perl version: ", join ('.', unpack('C3', $^V)), "\n";
print "* $_\n" for @INC;

require Tk;

print "~ $_\n" for @INC;