Select Code to Download

while ($response=<$remote>){
    #manipulate response here
}

while ($foo=<DATA>){chomp $foo;push @ary, $foo};

print "@ary";
...
baz
quud
quux