.pl-4 #!/usr/bin/perl -w

use strict;
print "Do you know Perl?";
my $answer = chomp(<STDIN>);
print $answer;