Select Code to Download

my $dir = '/tmp'
my $sub_dir;
...

my $path = join('/', grep { defined && $_ ne '' } ($dir, $sub_dir, $fi
+le));
print "$path\n";