#!/usr/bin/perl -l

use strict;
use warnings;

END {
    my @stuff;
    sub record {
        push @stuff, $_[1];
        undef;
    }
    print for @stuff;
}

use lib \&record;
use File::Find;
no lib \&record;

# Do something else, I suppose!

__END__