Select Code to Download

#!/usr/bin/perl -w

...
              -> doGoogleSearch(@params);

print redirect( $result->{resultElements}[0]{URL} );