Quite common in Tk code actually:

    $parent -> Button (-text => 'Quit',
                       -command => sub {Tk::exit}) -> pack;
[download]

Both the Button method and the pack method return an object (the same one actually), but if you don't need to use the widget anymore, it's often discarded.

Abigail