Select Code to Download

for my $wheel (qw/basename dirname/)
{
...
my $name = basename('/tmp/foo/bar');
print "$path/$name\n";

for my $funcname (qw/basename dirname/)
{
...
my $path = dirname('/tmp/foo/bar');
my $name = basename('/tmp/foo/bar');
print "$path/$name\n";