#!/usr/bin/perl

use warnings;
use strict;


my $url = "http://www.sensationalscentsonline.com";

my $page_source;

 use HTML::TokeParser::Simple;
 my $p = HTML::TokeParser::Simple->new(url => $url);

 while ( my $token = $p->get_token ) {
     # This prints all text in an HTML doc (i.e., it strips the HTML)
     next unless $token->is_text;
     $page_source .= $token->as_is if $token->as_is !~ m/^</;
 }
print $page_source;