my $original_mode = (stat( $original_file ))[2];
my $target_mode = (stat( $target_file ))[2];
print "Original Filename: $original_file\nOriginal mode: $original_mode\n";
print "Target Filename: $target_filename\ntarget mode: $target_mode\n";