cp50.pm
fs_ipmi.pm
support_libs.pm
##</code><code>##

Can't locate pacakge tdf for @fs_ipmi::ISA at fs_ipmi line 213 (<-- where the display_cfg() sub is called...)
Can't locate pacakge tdf for @support_libs::ISA at fs_ipmi.pm line 213 (<-- redundancy here???)
Tk::Error: Undefined subroutine &fs_ipmi::display_msg called at fs_ipmi.pm line 213.
  Tk callback for .frame.button
  Tk::__ANON__ at /usr/local/lib/perl5/site_perl/5.8.6/i686-linux/Tk.pm line 247
  Tk::Button::butUp at /usr/local/lib/perl5/site_perl/5/8/6/i686-linux/Tk/Button.pm line 111
  <ButtonRelease-1>
  <command bound to event)

##</code><code>##

use Tk 800.000;
use Tk::DialogBox;
use FileHandle;
use strict;
#use warnings;
use support_libs;
use fs_config;
use fs_ipmi;

require Exporter;
our @EXPORT = qw(display_msg display_cfg warning_dlog MyDialog);
our @ISA = qw(Exporter cp50 support_libs);
@EXPORT = qw();

#--------------------------------------------------------------------------------------------#
# sub display_cfg()                                                                          #
# This subroutine will write a simple message or text string to the message canvas than      #
# comprises a portion of the UI application.                                                 #
#--------------------------------------------------------------------------------------------#
sub display_cfg {
   my ($rec) = @_;
   my ($line) = "$rec";

   $disp->insert("end", $line);
}

##</code><code>##

#use strict;
#use fs_config;
use fs_config;
use fs_ipmi;
use Getopt::Long;

##</code><code>##

package fs_ipmi;
require Exporter;
@ISA    = qw(Exporter tdf support_libs);
@EXPORT = qw(GetDebugInfo ReserveDPV DeleteDPV SetPowerState
   SetResetState SetControlState GetControlState GetSensorReading
   RestoreFactoryDefaults StoreParameters SetAudibleState
   GetEventReceiver GetSensorThresholds SetSensorThresholds
   GetSensorEventEnable SetSensorEventEnable
   GetSlotGA GetDeviceID SServerUp Slot2HexAdrs
   GetPERStatus GetDebugInfo SetRelayState GetRelayState
   Fast_fs_ipmi GetSELInfo ReserveSEL ClearSEL
   GetSELTime SetSELTime GetIPMIEnableState);

support_libs.pm:
package support_libs;
use Exporter;
our @EXPORT = qw(write_dlog defineBlades debug_ip convert_slot System_tests chassis_status);
our @ISA = qw(Exporter tdf);
use Switch;
use fs_ipmi;
use Tk 800.00;
use Tk::DialogBox;