Ok so i change it to

Where "Test01" is the name of the user, and "test" is the

folder where the files will be uploaded, and save the .txt file.

Now left the question where to put it and should i save it with extension "PL" for Perl script or leave it to text file.

Where to put it? That's a question of how you want to organize it. My scripts live in several folders, depending on which project or topic they belong to...

The .pl extension, I recommend you to keep it, because that's Windows' way to know it's a Perl script. (AFAIK, the installers of both Strawberry and ActivePerl associate it with the Perl interpreter.) On Unix/Linux/Os X, again, it would mostly depend on your preferences.

In C:\Strawberry\perl\bin there are 2 crc files:

crc32 no extension and crc32 (Windows Bath File)

crc32 (Windows Bath File) code:

@rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
perl -x -S %0 %*
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#!/usr/bin/perl
#line 15

# Computes and prints to stdout the CRC-32 values of the given files

use 5.006;
use strict;
use lib qw( blib/lib lib );
use Archive::Zip;
use FileHandle;

use vars qw( $VERSION );
BEGIN {
    $VERSION = '1.51';
}

my $totalFiles = scalar(@ARGV);
foreach my $file (@ARGV) {
    if ( -d $file ) {
        warn "$0: ${file}: Is a directory\n";
        next;
    }
    my $fh = FileHandle->new();
    if ( !$fh->open( $file, 'r' ) ) {
        warn "$0: $!\n";
        next;
    }
    binmode($fh);
    my $buffer;
    my $bytesRead;
    my $crc = 0;
    while ( $bytesRead = $fh->read( $buffer, 32768 ) ) {
        $crc = Archive::Zip::computeCRC32( $buffer, $crc );
    }
    my $fileCrc = sprintf("%08x", $crc);
    printf("$fileCrc");
    print("\t$file") if ( $totalFiles > 1 );

    if ( $file =~ /[^[:xdigit:]]([[:xdigit:]]{8})[^[:xdigit:]]/ ) {
    my $filenameCrc = $1;
    if ( lc($filenameCrc) eq lc($fileCrc) ) {
        print("\tOK")
    } else {
        print("\tBAD $fileCrc != $filenameCrc");
        }
    }

    print("\n");
}

__END__
:endofperl
[download]

Probably i must delete all and copy the script?

Not sure, but they are probably unrelated to String::CRC32. I would leave them alone.

Chmod change attributes on llinux, +x on mac its says to the script to be executable.

How i do it .exe to windows?