print FILE <<'MOF';
# code
MOF

print FILE qq[\$basedir = "/$basedir";\n];

print FILE <<'EOF';
# rest of code
EOF