END{
#!/bin/perl
use Tk;
use strict;
use warnings;
use Data::Dumper;

print "The fils is located here: ".Tk::findINC('icon.png')."\n"; 

exit 0;
}

##</code><code>##

Can't call method "crc32String" without a package or object reference at (...)/strawberry-perl-5.14.4.1-64bit-portable/perl/vendor/lib/PAR/Heavy.pm line 146.
END failed--call queue aborted at -e line 965.