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

my $mac_address = 'FC:FB:FB:01:FA:21';

$mac_address =~ s/:/-/g;
my $url = "https://api.macvendors.com/$mac_address";
say $url;

require LWP::UserAgent;
my $ua = LWP::UserAgent->new(
	timeout			=> 5,
);
my $response = $ua->get($url);

if ($response->is_success) {
    print $response->decoded_content;
}
else {
    die $response->status_line;
}