gistfile1.pl

use strict;
use warnings;
use Web::Scraper;
use URI;
use LWP::Simple;

my $content = scraper {
    process 'div[id="Wa_talktalk_main1_pnBlogIt"]',
        "data" => scraper {
            process 'a', 'url[]' => '@href';
        };
    result 'data';
}->scrape(URI->new("http://www.aladdin.co.kr/shop/wproduct.aspx?ISBN=8925510111&start=we"));

my $data;
foreach my $url (@{ $content->{url} }) {
    next if $url =~ /(?:aladdin|naver)/;
    $data = $url;
}

my $res = get($data);

my ($ttb) = $res =~ /href="(http:\/\/.+?ttbkey[^"]+)"/;

print $ttb;