#!/usr/bin/perl

use strict;
use warnings;
use File::Copy;
use Data::Dumper;

my $dir_from = shift;
my $dir_to = shift;
my $files_from = shift || "";
my $files_to = shift || "";

if ($files_from) {
  $files_from =~ s/"//g;
  system("chmod 755 \"$files_from\"");
  system("\"$files_from\"");
}

if ($files_to) {
  $files_to =~ s/"//g;
  system("chmod 755 \"$files_to\"");
  system("\"$files_to\"");
}


