#!perl for ( map extract_paths( $_ ), @ARGV ) { # stash this somewhere, I guess. } # etc.