Language Basics Perl

perl -e "print __LINE__;"