### MAIN PROGRAM 

sub main
{
  use File::Spec;
  use Getopt::Long;

  my $url = undef;
  my @tags = undef;

  GetOptions(
              "tags=s" => \@tags,
              "url=s" => \$url,
              )
  or die("Error in command line arguments. $!\n");

  my $dlobj = DownloadObject->new( $url, \@tags );
  $dlobj->download();

}