perl -e '$x = shift; while (<>) { print "$x: $_" }' $2 $1