Boucle WHILE qui fonctionne pas (débutant)

[root@srv41001 root]# cat test2.pl
#!/usr/bin/perl -w

# Open the dump file
open(PASSWD,"/etc/passwd") || die "Can't open /etc/passwd...$!\n";

my @listepwd = ()
# Parse out the lines with ip numbers
while ( <PASSWD>  )  {
 chomp;
 if ( $_ =~ /bin/) {
   push (@listepwd,$_);
 }
}
close(IPNUM);

print "@listepwd\n"

[root@srv41001 root]# cat test.pl
#!/usr/bin/perl -w
# Generate the IP#, router, and subnet mask by running the "ipconfig" command.
# Run ipconfig and dump its contents to ipdump.

my @t = ();
open(IPNUM,"|ifconfig > ipdump") || die "Can't run 'ifconfig'...$!\n";
close(IPNUM);

# Open the dump file
open(IPNUM,"ipdump") || die "Can't open ipdump...$!\n";

# Parse out the lines with ip numbers
while ( <IPNUM>  )  {
 chomp;
 if ( $_ =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/) {
   push (@ipconf,split(/\D+/,$_));
 }
}
close(IPNUM);

my $IPAdws2;
my $SubnetMsk2;
my $Router2;
$IPAdws2 = join(".",@ipconf[1...4]);
$SubnetMsk2 = join(".",@ipconf[5...8]);
$Router2 = join(".",@ipconf[9...12]);
print "Adresse ip : \t$IPAdws2\nBcast : \t$SubnetMsk2\nMasque : \t$Router2\n"