cat > program.pl
perl program.pl || true