- #!/usr/bin/perl
- use Selenium::Remote::Driver;
- my $driver = Selenium::Remote::Driver->new;
- $driver->get("http://www.google.com");
- my $element = $driver->find_element('q','name');
- $element->send_keys("Hello WebDriver!");
- $element->submit;
- print $driver->get_title() . "\n";
- $driver->quit();
|