open (PSSWD, "<passwordfile") or die "could not able to open the file" ;
while ($line=<PSSWD>) {
chomp($line);
}
($uname,$password) = $line = ~ m/username\s+(\S+)\s+(\S+)\s*\S*/;

close(PSSWD);
printf("uname %c= $uname");
printf("\npassword=$password");