<<birth;
G
   r
      o
         w
            t
               h
re-
birth

seek
        (enlightenment, knowledge, experience );

goto MIT;

sleep "too little", study $a_lot,
wait, then .
        "B.S.", 

leave. then, return to ;
        MIT : 

now, 
        $done = 'a Ph.D. ">&2';

warn pop @mom, "     I'll be here a while \n"; 

study, study, do study; 

push 

       (myself, computers, experiments ),

read 

       (data, references, books ), 

study,
       write,
               write, 
                       write,

do more if time ;
redo if $errors ; 

do more_work if questions_remain ; 

$all_are_answered? yes. 

now : 
       write,
       chop if length $too_great ; 

format 
       =Thesis 
. 
                       tell all,
                       done, finally 
.                      now, do rest .

shout .
       and 
              .hear .
                       it 
                             .`echo "

              Now I am $done`

Output using Perl 4.0 or higher

I'll be here a while
      Thesis
      Thesis
      Thesis

             Now I am a Ph. D.