Select Code to Download

#! perl -slw
use strict;
...
    print "@$_" for @{ $AoA };
    select undef, undef, undef, 0.1;
}