Your question does not seem to be related to Perl in any way.

You may add an udev rule the assigns the device(s) in question to a specific group and then run the script setgid to this group.

EDIT:
and then add an appropriate entry in /etc/fstab to allow a user-mount.