Select Code to Download

    while (<>) {
        ...             # your program goes here
...
        print or die "-p destination: $!\n";
    }

use strict;
use warnings;
...
        print;
    }
}