# Create main area for displaying info
my $mainarea = $mw->Canvas;
$mainarea->pack(-fill => 'both', -expand => 'yes');
$mainarea->configure(-background => "#AAAAAA",);

# Define updates to main window
# -----------------------------
# FILESYSTEMS
sub fs_sub {
        $mainarea->createText(10, 10,
                -text => "Filesystem Information:",
                -anchor => 'w');
};

# MEMORY
sub mem_sub{
        $mainarea->createText(10, 10,
                -text => "Memory Information:",
                -anchor => 'w');
};