#!/usr/bin/perl use warnings; use strict; sub getDaShit { my @data = `grep -i dbhost "/usr/sap/SID/SYS/profile/DEFAULT.PFL"| awk '{print $3}'| uniq`; return @data; }