#!/usr/bin/perl
# w1.10.pl: Backtics are used to run commands in the system shell
# Below the response is assigned to a scalar.

$hello= `grep "hello" *.pl`;

print ("$hello");
__END__
