#!/usr/bin/perl
$file = shift or die "Use: $0 perlprogram\n";
do $file;
print "$_\n" for keys %INC;