perl -pi.bak -e"BEGIN{<>}" file
## Or 
perl -pi -e 'BEGIN{<>}' file