A simple Perl script that watches for changes and runs a command