#!/usr/bin/perl
use warnings;
use strict;
use WebService::Careerjet;

my $careerjet = WebService::Careerjet->new('en_US');

# Search data 
my $Keywords = 'weather risk manager';
my $Location = 'us';

# Perform a search, asking for the first page 
my $result = $careerjet->search( {'keywords' => $Keywords , 'location' => $Location , 'page' => 1, } );

# Go through results
if ( $result->{'type'} eq 'JOBS') {	
	OUTPUT($result->{'jobs'});
	if ( $result->{'pages'}  > 1 ) {
		foreach  my $page ( 2..$result->{'pages'} ) {
			my $res = $careerjet->search( {'keywords' => $Keywords , 'location' => $Location , 'page' => $page , } );
			if ( $res->{'type'} eq 'JOBS' ) {
				OUTPUT( $res->{'jobs'} );
			}
		}
	}
}


sub OUTPUT {
	my $lines = shift;
	open(OUT, '>>', "jobs.txt") or die $!;
	foreach my $j (@$lines) {
		print OUT "$j->{'url'}~$j->{'title'}~$j->{'company'}~$j->{'salary'}~$j->{'date'}~$j->{'description'}~$j->{'site'}~$j->{'locations'}\n";
	}
}