perl: append line on top of file

perl -pi -e 'print "use \\MBQT\\framework\\Session;\n" if $. == 1' <file>