#!/usr/bin/perl 
use strict;
use warnings;

use HTML::TableExtract;
use WWW::Mechanize;

my $url = "http://www.example.com";
my $mech = WWW::Mechanize->new();

$mech->agent_alias( 'Mac Safari' );
$mech->get( $url );

my $te = HTML::TableExtract->new( headers => [qw(Company Salary)] );
$te->parse($mech->content);

foreach my $row ($te->rows) {
        my $output = join(' - ', @$row);
        $output =~ s/\t||\r||\n||\f//g;
        print $output;
        }