Language Basics Perl

#!/usr/bin/perl -w
use strict;
while (<>) {
    print "text read: $_"
}