sub getPlatformFiles { # my ($plat_in, $nic_in) = @_; my $plat_in = shift; my $nic_in = shift; my @list; print "<$plat_in>\n"; #debugging print "<$nic_in>\n"; #debugging if ($plat_in =~ /RedHat/) { @list = ("/etc-test/resolv.conf", "/etc-test/sysconfig/network-scripts/ifcfg-$nic->{device}"); } return @list; }