Select Code to Download

foreach $port (@$pt) { 
    ...
}