Select Code to Download

for my $infile ($foo, $bar) {
    last if open ($fh, '<', $infile);
...
} else {
    warn "None of the files could be opened. What a shame.";
}