#!/usr/bin/perl 
$sourcedir = "/home/marcod/Documents/Didattica/SPM/Dispensa/Codice/FarmSocket";
foreach $m (@ARGV) {
  print "Deploying to $m\n";
  system("rsync -avz $sourcedir $m:");
  print "Done!\n";
}
exit;