#! /usr/bin/perl -w my $toFind = shift; if ( $toFind ) { print "ssh names\n"; print `grep $toFind /etc/ssh/ssh_config`; print "\nvpn names\n"; print `ls /etc/openvpn | grep $toFind`; } else { print "You must enter one thing to look for, ie findname pci\n"; }