#!/usr/bin/perl
#
sub foo {
    print "main::foo\n";
}
use pragmatic Foo;
foo;
no pragmatic Foo;
foo;
use pragmatic Foo;
foo;
no pragmatic;
foo;
use pragmatic Foo;
foo;