Re,

Voilà encore 2 façon de le faire
1. utilisation de our
#! /usr/bin/perl
our $user1="toto";

use strict;
my $user2=$user1;
print "$user2\n";2. utilisation de my #! /usr/bin/perl
my $user1="toto";

use strict;
my $user2=$user1;
print "$user2\n";