#!/bin/perl.exe

package Tool;

sub rsync_cmd
{
  print("$_ ") for (@_);
  print("\n");
  system(@_);
}

package Main;
use strict;

my $rsync;

if ($^O =~ m/MSWin32/) {
  $rsync = 'c:\MinGW\msys\1.0\bin\rsync.exe';
}
else {
  $rsync = '/bin/rsync';
}
# my (@cmd) = ($rsync, qw(-avz rsync://stotz@typedef.ch/Bilder .));
my (@cmd) = ($rsync, qw(-avz . rsync://stotz@typedef.ch/Bilder));
print(@cmd);
Tool::rsync_cmd(@cmd);