Some tasks i want to run when a amule download is finished

finish.pl

#!/usr/bin/perl
# ----------------------------------------------------------------------------
# Ejecuta ciertas tareas cuando un fichero se descarga.
# Info amule: http://wiki.amule.org/index.php/Events
#
# Tareas ejecutadas:
# - Se crean tantos enlaces duros como carpetas existan en @folders. Al tener
#   cada usuario una carpeta independiente esto posibilita que un usuario se
#   descargue un fichero y lo pueda eliminar inmediatamente.
#   El fichero existira hasta que todos los usuarios lo borren.
#
#
# fxMlOF
# ----------------------------------------------------------------------------

use strict;
use warnings;
use File::Copy;
use File::Basename;

my $log = "/home/amule/finish.log";
open(my $fh, ">>", $log);
print $fh "Ejecuntando para " . $ARGV[0] . "\n";
close($fh);

my @folders = qw{ 
    /home/amule/Incoming/A
    /home/amule/Incoming/D
    /home/amule/Incoming/L
    /home/amule/Incoming/R
};

my $file = $ARGV[0];
die "El fichero no existe" unless (-f $file);
my($filename, $directories, $suffix) = fileparse($file);

my $firstFolder = shift(@folders);
move($file, $firstFolder);

foreach my $folder (@folders) {
    link("$firstFolder/$filename", "$folder/$filename");
}