use strict;
use warnings;

our $Registry;

BEGIN {
  $Win32::TieRegistry::__LOADED = eval {
    require Win32::TieRegistry;
    Win32::TieRegistry->import( Delimiter => '/' );
    1;
  };
}

sub use_mod { $Win32::TieRegistry::__LOADED; }



print "On $^O\t-> ";
if ( use_mod ) {
   my $IEKey = $Registry->{'HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/Main/'};
   print 'Show status bar: ', $IEKey->{'/Show_StatusBar'}, "\n";
} else {
   print "None of that stuff here.\n";
}

__DATA__

On MSWin32     -> Show status bar: yes
On linux       -> None of that stuff here.