use IO::Handle; 

if ($pid = open(CHILD, "-|")) { 

    {erzeuge ein toplevel mit ProgressBar und Cancel-Button}

    repeat (500, {toplevel->update} ); 

    while <CHILD> {  
    {lese die Ausgabe von aria2c und zeige den Fortschritt an} 
   } 
    
    close(CHILD); 

} else {    
    STDOUT->autoflush(1); 
    exec  ( "aria2c", @options );    
    CORE::exit(); 
}