Select Code to Download

sub d {
   my $dir = Practice::Dir->new;
...
# XXX This fails.
# `$file`'s dir is `undef` even though it wasn't before we returned.
my $file = f();