Select Code to Download

use strict;
use warnings;
...
}

close $inFH or die qq{close: <<HEREDOC: $!\n};

Class control
priority 5 
...
bandwidth 25 
Class video
bandwidth 45