do qq(cat $filename | perl -ple 'BEGIN { print "use strict;" }');