#!perl -w
use strict;
use App::scrape 'scrape';
use LWP::Simple 'get';
use Data::Dumper;

my $html= get 'file:///1054800.html';
my @info = scrape(
        $html,
        { 
          product => '.product-name',
          price   => '.price',
        },
    );
print Dumper \@info;

__END__

C:\>perl -w tmp.pl
$VAR1 = [
          {
            'product' => 'Please help',
            'price' => '$20.00'
          }
        ];