@files = <$svn_root>;

foreach (@files) {
        $next_backup_file = "weekly-full-backup-$_." . 'date +%Y%m%d';
        $youngest = 'svnlook youngest $svn_root/$_';
        chomp $youngest;
        print "Backing up $_ to revision $youngest\n";
        $svnadmin.cmd = "svnadmin dump --revision 0:$youngest $svn_root/$_ > $backup_dir/$next_backup_file"
;