用Perl给移动硬盘加密

如题,当我双击硬盘时,会让我输入密码,成功后才能进去硬盘,否则继续尝试输入,关键是怎么实现双击硬盘后就可以运行perl并阻止进入硬盘,密码对了之后有可以正常使用!