use Symbol qw(delete_package);

sub re_use {
  my $module = shift;       # "Module::To::Reload"
  my $fname = $module;
  $fname =~ s#::#/#g;
  $fname .= ".pm";          # "Module/To/Reload.pm"
  delete_package($module);  # remove the Module::To::Reload namespace
  delete $INC{$fname};      # delete the filename from the 
                            # "loaded" list 
  eval "use $module" or die $@;
}