Select Code to Download

 $widget->set_child_packing ($child, $expand, $fill, $padding, $pack_t
+ype)

#!/usr/bin/perl
use warnings;
...
    print "bye!\n";
    exit;
}