Help for this page
perl -wn -- - /etc/passwd <<'EOF' use feature 'say'; ... my ($w, $n) = (uc $1, 5000 + $2); say qq{log=$w id=$n} EOF
www.com | www.net | www.org
No recent polls found