$tmp_label = $table->Button(-image => $D_Image,  -borderwidth=>0, -cursor=>'hand1', -command=>[\&NewOrders]);

sub NewOrders {

$pid = fork();

if ($pid == 0) { execute(system "start http://www.yahoo.com"); exit(0);}

}