add perl 1 line file