Select Code to Download

use IO::Socket;
use POSIX qw(WNOHANG setsid);
...
        umask(0);                     # Reset umask
        $ENV{PATH} = '/bin:/sbin:/usr/sbin';  # Reset PATH
        }

sub cmd_wrapper { 
    my $cmd = shift;
...
    return $@ if $@ ne "" 
    return wantarray ? @out  : join '', @out;
    }

    ## Run the Curl command ##
    my $restURL = $opt_ref->{restURL} . $opt_ref->{pagingURL};
...
        return;  #<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
+RETURN
        }
#=cut

This is perl 5, version 16, subversion 3 (v5.16.3) built for x86_64-li
+nux
Red Hat Enterprise Linux Server release 5.11 (Tikanga)