There might be a check somewhere not only for the EUID, but also for the UID. Try setting
$< = 0, or by using
POSIX::setuid.
Having said that, you may want to get rid of perl-suid, as it has been deprecated for some time, and gotten rid of in 5.12. You're probably better of either using sudo, or putting the appropriate magic in your /etc/fstab so a file system can be mounted by a non-root user. For instance, on my home boxes, I have:
/dev/sdb1 /mnt/sdb1 auto use 0 0
/dev/sdb2 /mnt/sdb2 auto user 0 0
in my
/etc/fstab file, allowing a non-root user to mount usb devices.