#!/usr/bin/perl
$found = 0;
while (<>) {
	if (/^#!/) {$found = 1};
	print if $found;
}
