#!/opt/local/bin/perl
use strict;
use warnings;
use Scrappy qw/:syntax/;
user_agent random_ua;

my $url = 'http://google.com';
my $scraper = Scrappy->new;
$scraper->get("$url");
print $scraper->domain; # print www.google.com

__END__

This script returns:

Can't locate object method "user_agent" via package "random_ua" (perhaps you forgot to load "random_ua"?) at ./scrappy.pl line 5.