sub getToken { my $output = `curl -k -s -XPOST (URL) -dgrant_type=password -dclient_id=(client ID) -dclient_secret=(client secret) -dusername=(username) -dpassword=(password)`; if ($output =~ /"access_token":"(.*)", "ex/g){ return $1; } else { die "output not as expected...\n"; } }