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