$self->say(scalar(localtime), " $src"); $self->say(" move $src => $dest"); my @tags = $self->getCategory($src); my %image; my $temp = (File::Spec->splitpath($dest))[2]; if ($self->_debug) { File::Copy::copy $src, $temp or croak $!; } else …