Select Code to Download

shift @filenames while ( @filenames && ! -e $filenames[0] );
die "No names matched" unless ( @filenames );

my $found = '';
foreach ( @filenames ) {
...
  $found = $_;
  last;
}