Use of uninitialized value in concatenation (.) or string at C:/Perl/site/lib/Tk.pm line 350.
Argument "feather.jpg" isn't numeric in subroutine entry at tkphoto.pl line 17.

##</code><code>##

my $im = GD::Image->newFromJpeg('feather.jpg');