$pm->command(-label=>"rerun", -command=>[\&rerun, $dataset] );
$button->bind('<ButtonRelease-1>' => [ sub { push @menulist, $pm; $pm->post( $_[1], $_[2] ) }, Ev('X'), Ev('Y') ] );

##</code><code>##

$pm->command(-label=>"rerun", -command=>[\&rerun, $dataset] );
$button->bind('<ButtonRelease-3>' => [ sub { push @menulist, $pm; $pm->post( $_[1], $_[2] ) }, Ev('X'), Ev('Y') ] );