Select Code to Download

#!/usr/bin/perl -w
use Tk;
...
  my @msg = shift;
  print @msg, "\n";
}

#  $MW->Label(-text=>"This line will cause a segfault") -> pack;