Statement Perl

#!/usr/bin/perl -w
use strict;
while () {
    print "You entered: ";
    print;
}