...
  my $path = File::Spec->catdir($self->{mnt}, @path);
  ...

  # and

  $self->add_song(glob(File::Spec->catpath($self->{mnt}, "iPod_Control", "Music", "*", "*")));