find -name '*.pl' -exec perl -i~ -pe'$_ = "use FindBin qw( \$RealBin ); use lib \$RealBin;\n$_" if $. ==2' {} \;