#!/usr/bin/perl

use strict;
my $usemod = 0;
eval { require Win32::TieRegistry; }; 

if ($@) {
   warn "No module\n";
}
else {
   $usemod = 1;
}
if ($usemod) {
#  my ($Registry, $IEKey);              # If I expose this line, Windows FAILS ($IEKey remains null); comment out, Windows WORKS
#  use Win32::TieRegistry(Delimiter=>"/");  # If I expose this line, Linux FAILS (@INC compile error); comment out, Linux WORKS
   my $IEKey = $Registry->{'HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/Main/'};
   print $IEKey, "\n";
}
else {
   print "None of that stuff here\n";
}