##
#!/usr/bin/perl
use strict;
use warnings;
my $result = `curl --max-time 3 http://someweb.org 2>&1`;
print "exit status: $?\n";
print "result:\n", $result, "\n";
##
##
[larry@august-dev perl]$ ./foo.pl
exit status: 1536
result:
curl: (6) name lookup timed out