#!/usr/bin/env perl 
use warnings;
use strict;
use diagnostics;
use LWP::Simple;
use HTML::TreeBuilder;
use File::Temp;
foreach my $page (@ARGV) {
    my $pagedata = get $page;
    my $tree = HTML::TreeBuilder->new;
    $tree->parse($pagedata);
    $tree->eof;
    my @base = $tree->find('base');
    my $base_url = '';
    $base_url = $base[0]->{'href'} if @base;
    my @embeds = $tree->find('embed');
    foreach my $embed (@embeds) {
        my $target = $embed->{'src'};
        my $newurl = "$base_url$target";
        my @newurl_parts = split (/\//);
        my $filename = $newurl_parts[-1];
        my ($fh, $fname) = tempfile("$filename");
        print $fh get $newurl;
        close $fh;
        print STDERR "$filename saved as $fname";
    }
    $tree->delete;
}