Select Code to Download

use IO::Handle; 
$| = 1; 
...
        print $line; 
        print "\n";  
    }

use IO::Handle; 
$| = 1; 
...
        print; 
        print "\n"; 
    }