push @INC, sub {
my (undef, $file) = @_;
if ( $file !~ /^PERL2EXE_STORAGE/ ) 
{
print "\n ADD THIS PRAGMA:\n";
print "#perl2exe_include \"$file\"\n\n";
}
return undef;
};