$d=$tl->Dialog(-title => "A Message", -text => "This is my message.");
$d->Show;