$ perl -mO=Deparse -le 'print "$ARGV $_" while (<>)'

print "$ARGV $_" while defined($_ = <ARGV>);