use Modern::Perl;
say 'listes associatives';
my %url = (
    fd => "www.forumdz.com",
    ok => "www.ouedkniss.com",
    se => "www.sec4ever.com"
);


##</code><code>##

sad723@sad723-PC ~/perl
$ ./hash.pl
./hash.pl: ./hash.pl: cannot execute binary file

##</code><code>##

C:\Perl\bin>hash.pl
Unrecognized character \xE3 at C:\Perl\bin\hash.pl line 2.