#!/usr/local/bin/perl


system("find ./ -name '*$ARGV[0]*' -print");