Flash Lookahead Link Extractor - 01

#!/usr/bin/perl

use LWP::Simple; # used to get linked pages
use URI::URL;    # used to absolutize URLs

sub rel2abs {
        my ($rel,$base) = @_;
        my $uri = URI->new_abs($rel, $base);
        return $uri->as_string;
}

$url   = $ARGV[0];
$flash = get($url) 
         || die "Couldn't download $ARGV[0]";