verwaltung@verwaltung:~$ perl -wle 'eval "require Tk; undef;"'
verwaltung@verwaltung:~$ perl -wle 'eval "require Tk;"'
verwaltung@verwaltung:~$ perl -wle 'print eval "require Tk; undef;"'
Use of uninitialized value in print at -e line 1.

verwaltung@verwaltung:~$ perl -wle 'print eval "require Tk;"'
1
verwaltung@verwaltung:~$