Pierwsza próba:
perl -e 'print 2+2,"\n";

Pętla:
perl -e 'for($i=1;$i<10;$i++) { print "$i\n";}'


ls -s /usr/bin | perl -e 'while(<>){($rozmiar,$nazwa)=split;
  if($rozmiar>1000) {print;}}'

perl -e 'while(<>){($lid,$pp,$uid)=split(":");
  if($uid>3000) {print;}}' /etc/passwd