Select Code to Download

my $dir = '/tmp/foo';
if ( my @contents = dir_contents( $dir ) {
...
  opendir DIR, $dir or die "Couldn't open $dir: $!";
  return grep !/^\.\.?$/, readdir DIR;
}