#!/usr/bin/perl
use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../lib";

use Acme::Frobnitz;

# Parse command-line arguments
my $hyperlink = shift @ARGV or die "Usage: $0 <hyperlink>\n";

# Call the download method
print "Starting download process...\n";
my $file = Acme::Frobnitz->download($hyperlink);

print "File downloaded and processed: $file\n";