#!/usr/bin/perl

use Symbol qw(delete_package);

package Foo {
  $n = 10;
  show_foo( "After assignment" );

  sub show_foo
  {
    print "-" x 10, $_[0], "-" x 10, "\n";
    print "\$n is $n\n";
    foreach my $name ( keys %Foo:: )
    {
      print "$name\n";
    }
  }
}#end of package Foo

delete_package('Foo');

# package Foo again
package Foo{
 show_foo( "After delete" );
}

#OUT
----------After assignment----------
$n is 10
show_foo
n
Undefined subroutine & called at ...