#!/usr/bin/perl

`sed -i '3i\ hai' file1`