foreach my $dir (sort(keys(%dirs))) {
    $dir = escape($dir);
    $dir = wrap_with_quotes($dir);
    print("mkdir -p /tmp/$dir\n");
}

foreach my $file (sort(keys(%files))) {
    my $parent_dir = dirname($file);
    my $abs_path = abs_path($file);
    $abs_path = escape($abs_path);
    $abs_path = wrap_with_quotes($abs_path);
    $parent_dir = escape($parent_dir);
    $parent_dir = wrap_with_quotes($parent_dir);
    print("cp $abs_path /tmp/$parent_dir\n");
}

foreach my $file (sort(keys(%remote_files))) {
    my $parent_dir = dirname($file);
    my $abs_path = abs_path($file);
    my $host = get_host();
    $abs_path = escape($abs_path);
    $abs_path = wrap_with_quotes($abs_path);
    $parent_dir = escape($parent_dir);
    $parent_dir = wrap_with_quotes($parent_dir);
    print("rsync -a $host$abs_path /tmp/$parent_dir\n");
}