undef $/;
$a = <DATA>;
$nline =q($exec = $ENV{EXEC};);
$a =~ s/\n([^\n]+)/\n$nline\n$1/s;
print "$a";
__DATA__
$cwd = cwd();
print"$cwd\n";