#!/usr/bin/perl -w

use strict;

use Getopt::Long;
use HTML::Links::Localize;

my $only_newer;

my $result = GetOptions("f" => \$only_newer);

my $src_dir = shift;
my $dest_dir = shift || "./dest";

my $converter = 
    HTML::Links::Localize->new(
        'base_dir' => $src_dir,
        'dest_dir' => $dest_dir
    );

$converter->process_dir_tree('only-newer' => $only_newer);