Linux crc.pl

#!/usr/bin/perl

$fileIn = $ARGV[0];

chomp($resultStr = `crc32 "$fileIn"`);

$crc = uc($resultStr);

@fparts = split('\.', $fileIn);

$ext = pop(@fparts);

$finalName = "";
foreach(@fparts) {
    $finalName .= $_;
}

$finalName .= " [$crc].$ext";

`mv "$fileIn" "$finalName"`;

exit(0);