perl -MLWP -e 'print join("\n", keys %INC), "\n";'

##</code><code>##

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;