#!/usr/bin/perl
$file= $ARGV[0];
@file =(<>);
unshift @file, "My newline headline\n";
open (FH,">$file")or die "Cant open: $!";
print FH @file;
close FH;