Perl script to backup files after connecting USB stick