perl -e'
   zeile code;
   noch ne zeile;
   und noch eine;
'