#!/usr/bin/perl use strict; print "\%INC contains: \n"; foreach (keys %INC) { print " $INC{$_}\n"; } require File::Copy; do '/home/perl/include.pl'; print "\n\%INC now contains: \n"; foreach (keys %INC) { print " $INC{$_}\n"; }