#!/usr/bin/perl -w

#######################################################
# lect07_multi_sys
#
# playing with the system command with multiple
#    arguments
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 10-5-04
#######################################################

print  "what file name would you like to find? ";

chomp(my $file = <STDIN>);

print "where would you like to start searching? ";

chomp(my $root = <STDIN>);

system "find", "$root", "-name", "$file", "-print";

# end of lect07_multi_sys