while (my $script = <SOURCE>) {