$Status{'Total'} = 5;
$s_bar->Label(-textvariable => \$Status{'Total'} )->pack();

##</code><code>##

 
tie %Status, 'Tie:Win32MemMap', { Create => Mem_New_Share, MapName => 'F_Status', Size => 10000 };
$Status{'Total'} = 5;
$s_bar->Label(-textvariable => \$Status{'Total'} )->pack();