#!/usr/bin/perl
use warnings;
use strict;

$^I = "~";
while (<>) {
    if(/^#!/) {
        $_ .= "## Copyright (C) 2009 by tuxus\n";
    }
    print;
}