You can do it in several ways, backtics should work or you could use open - see IPC::Open3:

$myhostname = 'some_host';
@values = `/usr/local/bin/pingtest.pl $myhostname`;
[download]

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print