in reply to How to let perl knows if somebody copies a file

(half smile mode on)

system ("grep '^cp ' /home/naive_user/.bash_history");

In Section Seekers of Perl Wisdom