my $have_Tk;
BEGIN {
  $have_Tk = 0;
  eval { require Tk };
  $have_Tk = 1 unless ($@);
}
if ($have_Tk == 1) { ... }