perl -e 'do $ARGV[0]; print "$_\n" for values %INC' test.pl

##</code><code>##

#!/usr/bin/perl
use strict;
my $file=shift;
local $/=undef;
open IN, $file;
my $text=<IN>;
$text.="\n".q(
  CHECK{
    foreach my $module (values %INC) {
      print $module."\n";
    }
  }
   );

open JUNK,">.this_is_some_junk";
print JUNK $text;
close JUNK;
system "perl -c .this_is_some_junk";
unlink ".this_is_some_junk";