Select Code to Download

#!/usr/bin/perl -w
################################
...
printf "%s\n",join(",",keys %ifTable);

vmnet1,lo,wlan0,vmnet8,eth0

:
: much handwaving here
...
: 
: I didn't test that, but should work...
:

:
: 
print "It's there\n" if $ifTable{'eth1'}; # or whatever
:
: