Select Code to Download

$ ./blah.pl 
Tk::Error: Failed to AUTOLOAD 'Tk::Frame::add' at ./blah.pl line 34
 [\&main::callback,\{},View orders]
 (menu invoke)

#!/usr/bin/perl -w

...
        $b2->pack();
        $d->Show();
}