if ($@){
die "Tk not installed. Can't run GUI. Error returned: $@\n";
}