perl -pi.bak -e "if( $. == 2 ) { $_ = q/no warnings 'layer';\n use open ':locale';\nuse warnings 'all';\n$_/;}" myscript.pl