#!/usr/bin/perl -w
use strict;

$^I = ".bak";
while (<>) {
  if (/^#!/) {
  # BE AWARE OF THE NEWLINE
  $_ .= "## Copyright (C) 2008 by C'est Mois\n";
  }
  # BEWARE THIS: prints $_ 
  print;
}