diff --git a/pg_backrest.pl b/pg_backrest.pl
old mode 100644
new mode 100755
index 12efcfac9..75920cdb4
--- a/pg_backrest.pl
+++ b/pg_backrest.pl
@@ -2,16 +2,51 @@
 
 #use Getopt::Long;
 
+my $strCommandCompress = "pigz --rsyncable --best --stdout %file%";
+my $strCommandHash = "sha1sum %file% | awk '{print \$1}'";
+
 sub execute
 {
     local($strCommand) = @_;
     my $strOutput;
 
-    print("$strCommand\n");
+#   print("$strCommand\n");
     $strOutput = qx($strCommand) or return 0;
-    print("$strOutput\n");
+#   print("$strOutput\n");
     
-    return 1;
+    return($strOutput);
+}
+
+sub file_hash_get
+{
+    local($strFile) = @_;
+    
+    my $strCommand = $strCommandHash;
+    $strCommand =~ s/\%file\%/$strFile/g;
+    
+    my $strHash = execute($strCommand);
+    $strHash =~ s/^\s+|\s+$//g;
+    
+    return($strHash);
+}
+
+# Get the command
+$strCommand = $ARGV[0];
+
+if ($strCommand eq "archive-local")
+{
+    my $strSource = $ARGV[1];
+    my $strDestination = $ARGV[2];
+    
+    my $strCommand = $strCommandCompress;
+    $strCommand =~ s/\%file\%/$strFile/g;
+    
+    my $strHash = file_hash_get($strSource);
+    
+    $strCommand !!! construct the rest of the string
+    
+    print("$strHash");
+#    execute("$strCommandCompress $strSource > 
 }
 
   
\ No newline at end of file