Select Code to Download

#!/usr/bin/perl
use strict;
...

print "OK, file opened successfully.    \n\nPress enter to quit\n";
<STDIN>;

# DRAG & DROP FILES

...
        close LOG;
        open (LOG, ">>:encoding(UTF-8)", "$scriptpath/scripts/log.txt"
+) or print "\nCan't create log file: $!\nContinuing anyway.\n";
    } until (("$folder" eq "$folder2") && ("$file1_full" ne "$file2_fu
+ll") && ("$ext" eq "$ext2") && (-e "$folder/$file1") && (-e "$folder/
+$file2") && ($ext ne "doc"));