#!/usr/bin/perl

use strict;

my $machine=$ARGV[0];

if(not $machine) {
  print "from where?\n";
  exit;
}

my $s="rsync -qa sigg\@$machine:/home/sigg/ /home/sigg";
print "doing $s...";
system("$s");
print "done\n";