about awk 2 perl

[Chang Ming Huei]

Hi all:

      I want to use perl to do something like a awk script as following:

      cat file.txt | awk '{print $1,$2}'

     How can I do it ?