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;
}