Sorry that's not possible for me....

Sure it is, until you're able to copy/paste the code you're trying to run, its going to be near impossible for someone to help you point our your real typos in your real code

use Encode::Detect::Detector;

$d -> new Encode::Detect::Detector;
$d -> handle($file)
$charset = $d -> getresult;
[download]

That won't produce the error you reported either , it produces
Read more... (847 Bytes)

Are you copy/pasting from Encode::Detect::Detector or what?

The problem is I can't post the whole script, because it's not allowed in our company.

You don't have to post the whole script, simply post something sequivalent that demonstrates the problem you encounter -- replicate the problem with fewer lines of code

So far its all been syntax errors

Here is what I "wrote" by copy/pasting from http://p3rl.org/Encode::Detect::Detector

#!/usr/bin/perl --
use strict;
use warnings;
use Encode::Detect::Detector;
use autodie qw/ open /;
my $octets = 'abc'.chr(266).chr(666);
my $filename = shift || \$octets;
open my($infh), '<:raw', $filename ; 
my $d = new Encode::Detect::Detector;
while(my $line = readline $infh ){
    $d -> handle( $line );
}
$d -> eof;
close $infh;
my $charset = $d->getresult;
print "**$filename gots *".$charset."*\n";
[download]

__END__ **SCALAR(0x3f8fac) gots *UTF-8* </c>