use strict ; use warnings ;

  our $fred = 78 ;

  { local $fred = $fred ? 'Was Defined' : '*undef*' ;
    print "\$fred = $fred\n" ;
  } ;

  print "\$fred = $fred\n" ;