use strict;
use Scrappy;

my $sess = 'sam.session';
my $scraper =Scrappy->new;
-f $sess ? $scraper->session->load($sess) : $scraper->session->write($
+sess);

my $mainurl="https://secure.samford.edu/php-bin/search/index.php";
my $search_url="https://secure.samford.edu/php-bin/search/dir_susearch
+.php";

$scraper->get($mainurl);

my $scraper1 =Scrappy->new;
-f $sess ? $scraper1->session->load($sess) : $scraper1->session->write
+($sess);

$scraper1->post("$search_url",{
'searchChar'=>"john",
'searchBy'=>"ball",
'roleRadioGp'=>"fall",
'submit'=>"submit"
});

foreach my $key(keys %$scraper1)
{
    print "\n$key :";
    print "$scraper1->{$key}\n";
}

$scraper1->logger->write('log.yml');
[download]