Select Code to Download

database=...
user=...
PASSWD=`cat password_file | grep $database | grep $user | cut -d: -f2`

my $database = '...';
my $user = '...';
...
   chomp;
   $PASSWD = (split /:/)[2] if /$database/ && /$user/;
}

PASSWD=`perl -e"chomp; print((split /:/)[2]) if /$database/ && /$user/
+" < password_file`

PASSWD=`perl -F: -lane'print $F[1] if $F[2] eq $ARGV[0] && $F[0] eq $A
+RGV[1]' $database $user < password_file`