use strict;

print "Please enter CIBC card number (press enter for none):\n";
chomp(my $CARD_NUMBER_CIBC = <STDIN>);
print "Please enter CIBC password (press enter for none):\n";
chomp(my $PASSWORD_CIBC = <STDIN>);
print "Please enter PC card number (press enter for none):\n";
chomp(my $CARD_NUMBER_PC = <STDIN>);
print "Please enter PC password (press enter for none):\n";
chomp(my $PASSWORD_PC = <STDIN>);

print <<EOF;
\$::CARD_NUMER_CIBC = "$CARD_NUMBER_CIBC";
\$::PASSWORD_CIBC = "$PASSWORD_CIBC";
\$::CARD_NUMER_PC = "$CARD_NUMBER_PC";
\$::PASSWORD_PC = "$PASSWORD_PC";
EOF